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EDITORIAL 


Bonne année à tous ! 


Voici la nouvelle année ! L’an de grâce mil neuf cent quatre vingt six sera 
une très grand cru pour PPC Paris et tous ses adhérents. 


La fin de l’année passée fût riche en promesses de toutes natures. Notre 
progression s'accélère. Cela est sans doute dû à la confiance que de plus en plus 
nombreux vous nous accordez, ainsi qu’au contenu des articles qui ne cessent de 
nous parvenir. Et sans oublier bien sûr l’incroyable effort de l’équipe qui met en 
forme le Journal. | 


Vous pouvez désormais nous contacter par téléphone. Le répondeur est au (1) 


42 33 87 73. N'hésitez pas à demander des renseignements sur le Club ou sur la 
technique. 


Notre nom commence à être connu, et notre réputation commence à 
s'affirmer à l'étranger. Nous recevons de plus en plus de demandes de la part de 
nos voisins européens et d’outre-atlantique. 


Bref vous l'avez compris, en ces périodes de fêtes, l’optimisme règne au sein 
du Club. Le prochain numéro inaugurera la couverture jaune. Belle couleur pour 
1986, n’est ce pas ? 


Pierre DAVID 
(P37 SIGI CHHU616) 
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PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous ile savez peut être déjà, PPC PARIS se réunit une 
fois par mois, en plein coeur de Paris. Amenez votre 
matériel, votre bonne volonté et vos idées ! Plus vous en 
apporterez, et plus vous en trouverez chez vos collègues de 
PPC. Ces réunions se déroulent de manière très libre, aucun 
ordre du jour, discussion ou autre n'étant imposé. Un 
membre du Bureau est toujours présent. Ainsi, si vous 
désirez remettre votre article tout frais au journal, si 
vous avez des suggestions à faire, si vous voulez vous 
procurer des anciens numéros de JPC, ce sera en principe 
toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant 
venez nous rejoindre tous les premiers samedi de chaque 
mois, au CENTRE DE JEUNESSE ET DE LOISIRS JEAN VERDIER 

11, rue de Lancry 

75010 PARIS 
Et en montant au deuxième étage, vous entendrez des éclats 
de rire et des discussions passionnées vers la salle 215. 
Attention, toutefois, de venir entre 16 et 19 h. 


Pour l'accès en métro, trois possibilités s'offrent à vous 

à savoir: 

Métro Strasbourg St Denis: sortie Porte St Martin / Bld St 
Denis, coté pairs. 

Métro République: sortie Bld St Martin, coté pairs. 

Métro J. Bonsergent: Sortie Bld Magenta, coté impairs. 


J'oubliais: JPC est souvent distribué en avant-première 
lors de ces réunions ... À bon entendeur Salut ! 


Les dates des prochaines réunions sont: (16h-19h) 
- Le Samedi ler février 1986 

- Le Samedi ler mars 1986 

- Le Samedi 19 avril 1986 

- Le Samedi 3 mai 1986 

- Le Samedi 7 juin 1986 


ÀA Bientôt... 
Pierre DAVID 
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AUGMENTEZ LA MEMOIRE DE VOTRE HP71B 


I PRINCIPE 


Le microprocesseur de notre ordinateur préféré 
peut adresser jusqu'à 512 ko. 


Le schéma suivant vous indiquera comment est 
structuré le chaînage interne des RAM. Ce n'est 
pas Le schéma exacte du système, loin de Là, 
mais un simple plan synoptic simplifié. 


PORT(0.00) PORT(0.01) PORT(0.02) PORT(O.03) 


| out+- | out+- | out+- | out+- 
| 4Ko | | | 4Kko | | | 4Ko | | | 4Ko | | 
Hi in Line À sin 
ce fo cg eue na ta vais | 
DO CC HN HE te 
nef fesse | fee PM mRe HR eee ie 
uso f{-#--#f{ff-< {files fe *TT fee 
buste left 4) feel lee tt eee 
bus2--en ff] uns] fans SHe-de- ll het 
DURS sem eff [ter tf eee rs ess. het Hifi 
portÜ=semffffses-tmpse. Messe] eff 
partis etats ses mages elite 
ponterennss | frere seen as ins HN 
porter (T[ een eee pos HItI- 
porté=-anenfffffen--cérreneesse. frenates HT 
port | {{ fetes des eme th 
[I ee < - Hi 
ef esessesssssesentes pou 
jus ee fes 
| 1 out+ hrs | 
| | 4Ko | | [HP-IL| 
+in | +in | 
PORT(3.00) PCRT(0.05) 


IL existe 6 ports (connecteurs) pour le 
branchement de La mémoire au bus du HP71B. 


- Le PORT 0 - 

C'est Le port interne du système, il contient 
les quatre modules internes de La mémoire de 
base (voir schéma). 


- Les PORTS 1 à 4 - 

Ce sont les 4 ports extérieurs se trouvant 
devant La machine sous Le clavier. Le Port 1 
n'est pas tout à fait identique aux trois 
autres, une de ses broches permet de générer une 


interruption pour inhiber Les ROM internes du 
systèmes. En clair, nous avons la possibilité de 
mettre à cet endroit une ROM pouvant remplacer 
complètement Le système d'exploitation du HP71B. 
C'est ce que fait La ROM diagnostic du service 
après vente. 


- Le PORT 5 - 
C'est l'emplacement du lecteur de carte. Il 
permet de connecter Les modules de tailles plus 
grosses comme Les nouveaux modules d'extension 
mémoire HHP. 


II L'EXTENSION MEMOIRE INTERNE 


De part La configuration du système, Le HP71B 
peut recevoir jusqu'à 16 modules différents sur 
chacun de ses ports. Exemple: essayez 
FREE :PORT(4.07) ou FREE:PORT(0.15), Le système 
vous renverra l'erreur "Device Not Found". Par 
contre lorsque vous dépassez l'argument 
M:PORT(X.15)", Le système vous retourne l'erreur 
WInvalid Arg'". 


Les RAM sont toutes connectées de La même façon 
au bus mais pour que La configuration fonctionne 
normalement, elle sont reliées entre elles par 
ce que l'on appelle un Daisy Chain. En clair, 
elle sont branchées en parallèle sur Le bus sauf 
deux de leurs broches qui Les relies en séries. 
Ce sont Les broches "Daisy In“ et "Daisy Out". 
La solution pour augmenter La mémoire de Titan 
est donc de rajouter des modules dans La chaîne 
du port 0. Je suis arrivé à en rajouter 6 soit 
un total de 10 avec Les quatre modules d'origine. 


La même opération pourrait être faite sur les 
ports extérieurs mais cela obligerait à beaucoup 
trop de "bricolage". En effet, le câblage de ces 
ports et La connectique ne permettent pas de 
chaîner directement plusieurs modules. IL 
faudrait refaire (ou découper) quelques Lignes 
sur La plaque du circuit imprimé. De plus, il se 
créé un trou entre Le dernier module interne et 
La rom  HPIL. Je pense que c'est Le 
microprocesseur IL et son entourage interne qui 
occupe cette place mais sans grandé conviction. 
Le même décalage existe avec plus de modules 
internes, actuellement il se trouve en 
PORT(0.11). Le dernier module interne occupe la 
position 0.09 (FREE:PORT). 


Voilà quelques explications à propos de la 


mémoire du HP71. Un dernier point avant de nous 
quitter: que faire d'une si petite machine avec 


JPC 30 Page 3 


oo 


__ JPC 30 Page 4 


une si grosse mémoire ? J'ai actuellement un 
HP71B dont La mémoire est poussée à 86 ko. 
Lorsque l'on désire faire un fichier Lex de 2 
ko, il faut compter environ 30 à 40 ko de 
fichier source. En toute circonstance, je peux 
en plus charger en mémoire une FORTHRAM de 20ko 
contenant Le debogueur de Pierre David et/ou 
l'assembleur rapide de Stéphane Barizien. Enfin, 
lorsque je n'ai pas d'imprimante, je fais le 
Listing objet en mémoire centrale et il reste 
très souvent encore beaucoup de place. 


Heureuse Programmation 
Michel MARTINET (SIG#2, P#12, CHHU#617) 


LES INTERFACES VIDEO HPIL 


Sans un écran, un ordinateur n'a pas grande 

crédibilité aujourd'hui. Essayez d'expliquer la 

puissance d'une HP41, d'un HP75 ou d'un HP71 à 

quelqu'un, vous vous heurterez toujours à des 

réflexions du genre : 

- sans écran, moi j'pourrais pas ! 

- ça n'a que 12 (resp. 32, resp. 22) caractères, 
ton truc ? 

Et je ne parle pas des gens qui demandent où 

est l'ordinateur... 


Que répondre, face à de telles phrases 
catégoriques ? Qu'une HP41 peut se connecter à 
une interface vidéo ? C'est vouloir faire figure 
d'attardé mental, de menteur, etc... Vous 
connaissez certainement Le problème, chers 
collègues HPistes convaincus. 


Cependant, si l'on peut très bien se passer 
d'une interface vidéo (ne l'ais-je pas fait 
pendant des années 7), il est vrai que cela 
apporte un confort, nottament dès que l'on 
traite du texte, et plus spécialement lorsqu'on 
s'occupe d'un Club, qui édite un journal... 

Néanmoins, tout Le monde ne traite pas du 
texte, et on peut fort bien avoir besoin d'une 
interface vidéo pour développer du logiciel, 
pour présenter des résultats, que sais-je 


encore... 


Ce mini-dossier a donc pour but de vous 
présenter Les interfaces vidéo actuellement 
disponibles sur le marché. 

Elles ne se bousculent pas : 


A votre gauche, l'américaine (Moutain Computer 
- Hewlett Packard), et à ma droite, l'allemande 
(Pac Hardware, notez Le jeu de mot subtil...). 
Au loin se profile l'outsider, La française, 
l'interface minitel. Derrière, loin derrière, on 
voit encore L'ERREUR de Hewlett-Packard : la 
HP82163B et ses 32 colonnes. Chut, elle n'existe 
plus ! IL n'y en a plus ? Non ! Même pour caler 
les chaises ? Non ! Si, chez Maubert Electronic, 
à 1000 F, mais il ne faut pas le dire ! 


Nous ne parlerons que des deux premières : 


l'américaine et Ll'allemande. IL est trop tôt 


encore pour parler de l'interface minitel, peut 
être dans Le prochain numéro ? 

Je ne vous parlerai pas non plus de cette 
(..censuré..) d'interface 32 colonnes. J'ai fait 
JPC un an durant Là dessus, et je tiens à 
éloigner de ma mémoire au plus vite ces 
souvenirs atrrrrroces. 


L'INTERFACE ALLEMANDE 


“Pac  Hardware!, distribuée en France par 
l'intermédiaire de La Règle à Calcul. 


Qualité principale: elle est graphique. 
Défaut principal: elle est mauvaise pour faire 
du texte. 


Cette interface est assez récente (ça fait 
moins d'un an qu'on en parle). Elle est 
graphique, programmable en HPGL, possède une 
résolution de 640 points par 250, ce qui n'est 
pas mal du tout. 


La Liste des instructions HPGL est assez 
Longue, je ne les donnerai donc pas toutes. 
Sachez simplement que l'échelle est 
définissable, ainsi que Le type de ligne. Dans 
une moindre mesure, vous pouvez modifier la 
taille et l'inclinaison des caractères, et 
changer Le type de tracé. Couleur se traduit par 
"tracé", effacement", ou "exclusion", c'est à 
dire que tenter d'allumer un point qui l'est 
déjà provoque son extinction. 


Tout ceci est modulable. Un certain nombre 
d'instructions qui ne sont pas de L'HPGL sont 
fournis, telle l'instruction pour vider le 
contenu de La page graphique sur La ThinkJet, ou 
les instructions pour gérer le vidage de La page 
graphique sur des imprimantes parallèles 
connectées directement sur l'interface, ce qui 
reste à mon avis une application rare. 


Rien à dire de plus sur Le coté graphique, mis 
à part que Le tracé est assez lent. Mais c'est 
déjà bien d'avoir du graphique ! 


DU coté texte, c'est assez pitoyable. Les 
séquences d'échappement ne sont pas standard, du 
moins pas avec l'américaine, et comme déjà 
beaucoup de logiciels ont été écrits pour cette 
dernière, cela peut créer des problèmes. 


Mais, ce qui est Le plus grave, surtout pour 
des européens, est Le manque total d'accents. Je 
sais bien qu'il y a déjà du graphique, et qu'il 
ne faut pas trop en demander, mais je trouve 
absurde de commercialiser un engin qui m'affiche 
un ME" en vidéo inverse à La place d'un f“é', 
Pire encore : un "5" (cinq) en vidéo inverse à 
La place d'un "ç". 


Précisons que d'autres séquences sont fournies 
pour gérer Le port parallèle situé à l'arrière 
de La bête. 


Signalons enfin que, comme sa 
américaine, elle chauffe démesurément. 


collègue 


L'AMERICAINE 


Mountain Computer (Oh pardon, Hewlett Packard 
HP92198B). Le B sigifie que c'est la version 
française. Il aura fallu près de deux ans pour 
que HP France décide de changer l'adaptateur 
secteur, et l'ajoute à son catalogue. 


Principale qualité: Remarquable en texte 
Principal défaut: Pas de graphique. 


Nous ne nous attarderons pas longtemps sur Le 
côté graphique de La chose. Sachez simplement 
qu'il est possible de changer Les eproms pour 
avoir des caractères semi -graphiques. 
Adressez-vous au Club. 


Mais, pour Le texte, quel régal ! Plein de 
séquences d'échappement utiles, telles 


qu'insertion ou suppression de ligne, changement 
de police de caractères (vidéo inverse, ou 
Roman8). Des accents qui apparaissent comme des 
accents sur le moniteur ! 


Le jeu de caractères Roman8 est directement 
compatible avec Les imprimantes HP82905B ou 
ThinkJet, c'est à dire avec toutes les 
imprimantes HP présentes ou à venir, y compris 
la LaserJet. 


A noter une petite bogue, qui arrive lLorqu'on 
insère des caractères sur La dernière ligne. Il 
se peut que Le curseur se retrouve en haut de la 
page. 


PERFORMANCES 
Mitigées : 


L'allemande est plus rapide que l'américaine en 
performances pures, mais elle ralentit La boucle 
HPIL. En effet, l'américaine travaille plus vite 
que  L'HPIL, et ne ralentit donc pas les 
messages, comme par ailleurs La HP82905B et le 
lecteur de disquettes qui faisaient partie de la 
boucle au moment du test. 


CHOIX 


Allemande : environ 6000 FF 
Indispensable pour le graphique 


Américaine : environ 4000 FF 
Indispensable pour le texte 


La configuration idéale serait, pour moi, 
l'interface américaine et une table traçant HP. 
Savez-vous qu'une nouvelle vient de sortir 7? La 
HP7450. Pas encore d'interface HPIL, d'après ce 
que j'ai compris. 


A titre indicatif, l'interface minitel devrait 
arriver aux alentours de 3000 FF H.T. Pour ce 
prix Là, 40 colonnes, et un modem. A suivre... 


Pierre DAVID 
(SIG#1, P#37, CHHU#616) 


ss mms mmmmsmtsessss 
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LE DOSSIER DE PROGRAMME 


Celui-ci doit comprendre: 


Exposé du problème 


IL faut exprimer succintement Le problème afin 
de savoir comment Le résoudre. 

Masque d'écran: dessiner sur grille d'écran 
permet à l'auteur de simuler Le travail tel 
qu'il devra s'effectuer. 

L'organigramme: permet de matérialiser par bloc 
toutes les tâches que Le programmeur doit 
prendre en charge. IL donne de plus une vision 
du programme permettant une bonne compréhemsion 
de celui-ci. 


L'identification des variables: chaque 
programme nécessite un bon nombre de variables. 
Afin de s'y retourver, il faut faire 
l'inventaire de celle-ci. Une fiche 


d'identification des variables permet de gérer 
celle-ci. 

feuilles de programmation: elles ont un triple 
usage. Etablir Les masques d'écran, supporter 
Les Lignes de programmation, donner en abscisse 
et en ordonnées Les valeurs décimales de chaque 
point de l'écran. 


Mise au point et maintenance 


Mise au point: lorsque Le dossier de 
programmation est constitué, l'introduction des 
séquences de traitement dans l'ordinateur peut 
commencer. La procédure d'introduction doit se 
faire par étape. Chaque test doit-être ponctué 
par La sauvegarde du programme sur disquette 
avant de passer à l'étape suivante. 

Pour Les séquences de traitement dont le test 
complet nécessite plusieurs sessions 
d'introductions des données, La construction 
d'un jeu d'essai simulant toutes Les conditions 
rélles du travail doit-être envisagée. 
L'utilisation d'une imprimante permet de tester 
La bonne marche du programme et La bonne 
utilisation des masques d'écran. 

La maintenance du programme: elle est aisée si 
le dossier programme est complet. Tenir à jour 
L'évolution de celui-ci en  numérotant les 
différentes versions,  archiver Les sorties 
d'imprimante servant de test du programe, les 


modifications réellement effectuées. 


Pour pouvoir utiliser un programme, il faut non 
seulement Le programmer correctement mais 
établir un dossier sur celui-ci permettant de le 
suivre. Tout comme Le docteur avec son patient. 
Ce texte ainsi que le précédent (Méthode de 
réalisation d'un programme) m'ont été inspiré du 
livre de Michel Benelfoul: La réalisation des 
programmes Editions du PSI. 


Alain GILLET 


Jean-Pierre FASSIOLA, 11 avenue des Lacs, 94100 
St Maur (Tel.: 48 83 61 08 après 18h30). Vends 
une interface vidéo (TV MONITEUR) HP82163 et une 
thermique HP82162A (boucle 
interface). Matériel pratiquement neuf et prix à 
débattre. 


imprimante 


Wilfrid  FELIHO, 19 rue L. Casanova, 77270 
Villeparisis (tel.: 64 27 53 37). Vends HP41CV + 
lecteur de cartes + HP82104A + imprimante 
HP82143A, Le tout à 4800FF, état neuf. Vend 
d'autre part une très belle montre SEIK9 neuve à 
800FF. 


François LEGRAND, rue Josse Impens 99, 1030 
Bruxelles BELGIQUE; ou rue de La Poterie, 
Trévignon 29128 Trégunc FRANCE. Vends imprimante 
82143  (2200FF) + Lecteur de cartes 82104 
(1200FF) + 2 XMEM 82181 (2*450FF) + 11 card 
holder avec 40 cartes 97-13141 (11*120FF) + 40 
cartes 97-13140 (C40*3FF) + pour  HP67/97 
(compatible HP41) nav pac (150FF) et math pac 
(150FF). Soit un total neuf de 6040FF. Le tout, 
soldé à 5000FF avec Livres et programmes. Soit 
une réduction de 60% par rapport au prix neuf 
(tarif RAC). Vends également 80 microcassettes 
HP82176A pour lecteur HP82161A au prix de 9OFF 
pièce! Ces cassettes sont neuves, d'origine HP 
et sous emballage d'origine scellé. 


INDJEHAGOPIAN Jean-Pierre, 142 Grande Rue, 
92380 Garches (Tel.: Dom. 30 38 38 00, Dom. #47 
41 21 97). Vend une imprimante 24 colonnes 
HP82143 peu servi (+ rouleaux de papier 
impression noire) à 1100FF, un lecteur de 


cassette HPIL HP82161A, neuf, jamais servi à 
2700FF, une interface vidéo HP82163B8 à 1400FF, 
une PPCROM avec manuel d'utilisation, jamais 
servi à 600FF. Factures, modes d'emploi et 
emballages d'origine fournis. 


Philippe DAVASE, 7 Rue Ho Chi Minh, 78500 
SARTROUVILLE (Tel.: Dom. 39 13 51 67, Bur. 47 57 
31 40 poste 451). Vends: une imprimante 
graphique GP100A Seikosha interfaçage Sté 
Sicape-Vincennes, Totalement interfacée boucle 
HPIL, compatible HP41-HP71-HP75 + interface 
centronic d'origine matrice 5*7, 116 caractères 
alpha+symboles graphique point par point, 80 
caractères par Ligne, entrainement papier par 
picots, papier de larg.=4,5 à 10 pouces, très 
peu servie et vendue à 3000FF. Une imprimante HP 
24 colonnes, HPIL HP82162, vendue à 2500FF. Tout 
ce matériel peut-être échangé contre autre 
matériel HP compatible HP71B ou HPIL. 

Vends d'autre part un micro-ordinateur SHARP 
MZ80B, 64k RAM utilisateur, 32kK RAM graphique, 
processeur Z-80A (8 bits), écran 9 pouces, haute 
résolution graphique 320*200, affichage 40 
caractères * 25 lignes ou 80 caractères * 25 
lignes, gestion cassettes par soft, lecteur de 
cassettes intégré, 6 slots dans l'unité 
centrale, horloge intégrée, gestion totale du 
curseur, sortie son et haut parleur, clavier 
ASCII - QWERTY, majuscules et minuscules, 
symboles graphiques, 10 touches fonctions 
programmables, pavé numérique séparé. Un double 
lecteur de disquettes SHARP, disquettes 51/4, 
2*350k, double face, double densité, 70 pistes, 
16 secteurs/piste, soft sector. Une imprimante 


grahique bidirectionnelle 80P58, 80 
caractères/seconde, impression à aiguilles, 
entrainement à picots réglables, 230 sortes de 
caractères, matrice 9x8, 40-80-68-136 
caractères/ligne, papier Listing larg=4" à 10", 
fonction graphique intégrale, nombre de 
lignes/page programmable. Deux boites de 


rangement disquettes + 80 disquettes, 70 
cassettes spéciales testées micro-informatique. 
Liste des programmes disponibles disquettes: 
Multiplan, Wordstar, Mailmerge, Spelstar, CP/M, 
Dbase2, Friday, Wordmaster, T/Maker, Mbasic + 
Expand + Compilateur, Forth, 5 Basics, F-Dos, 
Assembleur  Z80, Propascal, Supercalc, Cobol, 
Walcore, Langage C, The Last One, Calcstar + 
Graphique, Datastar,  Ascom, Langage PL1, 
Mu-Math,  Mu-Simp, + 9 disquettes de jeux. 
Nombreux Livres sur CP/M et Z80. Le lot vendu à 
12000FF ou échange contre table  traçante 


HP7870-HPIL ou tout autre matériel 


Hewlett-Packard. 


Vincent HERLICQ (P81), Tel.: (1) 46 40 15 33. 
Vend périphériques HPIL en très bon état: 1 
HP82161A (lecteur de cassette) de septembre 84 + 
& cassettes dont 1 neuve à 3000FF, 1 HP82162A 
(imprimante) de 1983 + 3 rouleaux de papier 
thermique à impression noire à 2200FF et 159 
cartes magnétique pour HP41 (dans étuis) au prix 
de 120FF Les 50 ou 300FF Le tout. 


Michel  MARTINET 119, rue de Bagneux 92120 
MONTROUGE - Vend HP75C + Visicalc + Formatteur 
de textes + très nombreux logiciels : 5000 FF . 
Tél. 43 36 12 05 Département Informatique. 


sms mm mme mm mm mm 


Guy TOUBLANC 
21, Rue Henri Becquerel 
59120 LOOS-LES-LILLE 


Remarques concernant Le programme "COMPLEXE" 
(JPC 28) d'Alain Herreman: 


1) On peut obtenir La commande supplémentaire 
de La pile "LSTX" en ajoutant: 

- à La fin des lignes 60, 110, 350 

a L$=X$ 

- La ligne: 

650 Y'LSTX' : T$=2$ à 2$=Y$ à Y$=X$S à X$S=LS à 


- GOTO SHOW! 


- L'assignation: 
KEY ‘L','CONT LSTX!': 


2) Un avantage du module MATH du HP71B: [La pile 
de commande mémorise toute suite d'opérations 
complexes enchainées donc permet les 
modifications sans avoir à réécrire Le tout. Ce 
qui n'est pas Le cas pour Le programme "COMPLEXE". 
D'autre part, La remarque de Michel Weil (JPC 
n24 p4é) concernant Le programme "INTG'" Ç(JPC n23 
p51) ne tient pas si on ajoute à La fin de la 
ligne 79: 

*F (Ce qui semble être un oubli de frappe qui 
n'a pas été signalé par la suite.) 


Guy Toublanc. 


JPC 30 Page 7 


0 





Un nouveau système : l’instrumentation associée à 


l'ordinateur personnel 


Hewlett-Packard présente un nouveau système de test et de 
mesure, dans lequel l'ordinateur personnel constitue une station 
de travail très souple accessible à une grande variété d’applica- 
tions. L’instrumentation se présente sous la forme de différents 
modules faisant office de périphériques du PC. 


Compatibilité HP/IBM PC 


Ces modules d’instrumentation sont compatibles avec un ordi- 
nateur HP à écran tactile (HP 150B ou HP 150 II), un IBM PC, 
PC/XT ou PC/AT (sous MS DOSTM). La communication avec 
l'ordinateur s'effectue via une interface utilisateur intitulée PCIB 
(bus PC-instrumentation) supportant huit types d'instruments 
différents. Cette interface se met à l’intérieur du PC qui peut con- 
tenir plus d’une carte PCIB, selon le nombre de logements dispo- 
nibles (quatre sur le HP 150 I). 


Conception modulaire 


L'’instrumentation associée au PC est constituée de huit types 
de modules différents, possédant leurs propres alimentations et 
inclus dans des boîtiers plastiques superposables : 

B l’entrée-sortie numérique HP 61010AA, 

B le multiplexeur à relais HP 61011AA, 

B le double convertisseur N-A en tension HP 61012AA, 
B le multimètre numérique HP 61013AA, 

B le générateur de fonctions HP 61014AA, 

B le compteur universel HP 61015AA, 

& l’oscilloscope numériseur HP 61016AA, 

B le relais de commande externe HP 61017AA 


Logiciel système 
Le logiciel du système autorise son utilisation en mode manuel 
ou en mode programmé. En mode manuel, l'écran de l'ordinateur 
affiche, pour chaque module, un « panneau avant reconfigura- 
ble » reproduisant le panneau de commande d'un instrument tra- 


ditionnel. Les réglages s'effectuent par effleurement de l'écran, à 
l'aide des touches de déplacement du curseur (HP), ou à l’aide 
d'une souris (IBM). 


En mode programmé, il est possible de créer ses propres pro- 
grammes d'application pour l'automatisation des instruments. 
Exemples d'applications : test de production, test de composants, 
contrôle d'entrée et enregistrement de données. 


Le logiciel système inclut également le « Data Interchange For- 
mat » (DIFTM), interface permettant de lui connecter un logiciel 
existant tel que Lotus 1-2-3TM ou VisiCalc®, pour le traitement des 
mesures en vue de compte-rendus ou de présentations graphiques. 


Logiciel en option 


Le logiciel d'acquisition de données en option couvre les appli- 
cations d'acquisition les plus courantes. Ce programme de con- 
trôle par menu exécute la scrutation de tension, la scrutation de 
thermocouples et l'enregistrement de signaux. Il inclut également 
des routines de présentation graphique pour le traçage des don- 
nées. 


Compatibilité HP-1B 


Il est possible d'adjoindre des instruments compatibles HP-IB à 
un système basé sur un HP 150 ou un IBM PC : vous pouvez con- 
trôler jusqu’à 15 instruments par carte interface HP-IB. Un ordi- 
nateur personnel peut inclure à la fois des cartes PCIB et HP-IB. 


MS TM O0OS$ est une marque déposée de MicroSoft Corporation. 

DIFTM est une marque déposée de Software Arts Products Corporation. 

Lotus TM 1,2 et 37% sont des Marques déposées de Lotus Development Corporation. 
Vieicaic® est une merque déposée de VisiCorp. 


La nouvelle imprimante ThinkJet est compatible avec de 
nombreux ordinateurs personnels 


[l est possible d’utiliser le nouveau modèle d'imprimante 
Think Jet de Hewlett-Packard avec de nombreux ordinateurs per- 
sonnels fabriqués par Hewlett-Packard, IBM et Apple Compu- 
ter. Le nouveau modèle HP 2225DB est une version de l'impri- 
mante équipée d’une interface série RS-232-C et, comme les 





Grâce à ses nom£r'euses inter!aces ei 3 Su 
oouvez utihser j'imprimañte TninhkJet sur 
Aux OfCINAaIEUurS Dersonneis 


por: lOGICIEI VOUS 
lugärt 2es.princ:- 
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autres membres de la famille d'imprimantes ThinkJet, son fonc- 
tionnement est silencieux et elle exécute des travaux d'impression 
d'une excellente qualité a une vitesse élevée. 

L'imprimante HP 2225DB fonctionne avec les ordinateurs per- 
sonnels suivants : 

BE Gamme HP 150 
B IBM PC, IBM PC AT et IBM PC XT 
B Apple Macintosh, Apple Ilc, Apple Ile. 

Elle est également compatible avec les terminaux HP 2392A, 
HP 2623A, HP 2628A, HP 2627A et HP 26248B. (Sur les termi- 
naux, la HP 2225DB ne permet d'imprimer que les textes car elle 
ne possède pas de caractères de tracé de lignes). 

Vous pouvez dorénavant commander l'imprimante ThinkJet 
équipée de l’une quelconque de quatre interfaces. Le modèle 
HP 2225AB a une interface HP-IB (IEEE-488) destinée aux ordi- 
nateurs et appareils de mesure HP, la 2225BB utilise une interface 
HP-IL et se connecte aux calculateurs et aux ordinateurs porta- 
bles HP. La 2225CB a une interface parallèle Centronics et vous 
pouvez la connecter aux ordinateurs personnels d'IBM, Apple, 
Compaq et Texas Instruments. 

Un logiciel de commande spécial réalisé pour Hewleri-Packard 
par SoftStyle Inc, permet également d'utiliser l'imprimante avec 
Macintosh d'Apple pour les applications telles que MacPAINT et 
MacWRITE. 








JetStan ‘* est une marque déoosée de SoftStvie Inc. 





HP71 BASIC 


FRANCOIS LE GRAND LE LOGICIEL NAVIGATION 
MICHEL WEIL LES TABLES DE LA LOI 
MICHEL WEIL FORMAT HPAF 

PHILIPPE GUEZ :  CALENDRIERS 
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LE LOGICIEL NAVIGATION POUR HP71B 


Voici un ensemble de 3 programmes permettant de 
résoudre La plupart des problèmes de navigation 
maritime. 

Ce logiciel reprend en gros les 
caractéristiques du module navigation de la 
HP-41, avec quelques avantages en plus, dont une 
exécution beaucoup plus rapide. 


Voici un appercu des possibilités de ce logiciel: 


- Tenue de l'estime 

- Distance et cap par une loxodromie 
- Position par une loxodromie 

- Calculs orthodromiques 

- Position par une orthodromie 

- Trace de l'orthodromie sur La carte 
- Navigation mixte ortho-loxo-ortho 

- Droite de hauteur 

- Ephémérides nautiques 

- Identification d'étoile 


Pour Les 3 derniers cas, il y a possibilité 
d'utiliser 3 types d'éphémérides différentes: 

- Ephémérides permanentes du logiciel PERPET 

- Epimenides (éditées par Le  S.H.0.M.) du 
logiciel EPIMENIS 

- Ephémérides Nautiques 


L'accès à ces différentes possibilités se fait 
soit par menu, soit directement par La touche 
[g[ON]]1 (#155). 

A chaque affichage de résultat, Le programme 
suspend son exécution. Le voyant SUSP est alors 
allumé. Pour accéder à La suite du programme, 
tapez [f[+]1] (CONT). 


FORMAT DES ENTREES ET SORTIES 


Lors des questions, Lorsqu'il y a une valeur 
entre Le "=" et Le "21, cette valeur correspond 
à La valeur par défaut si vous tapez ENDLINE 
directement. Si vous voulez changer cette 
valeur, tapez La nouvelle valeur sans effacer 
quoi que ce soit. 

Les angles (coordonnées, hauteur d'un astre) 
peuvent être exprimés en Degrés, Minute,Seconde 
(DMS) si Le drapeau 0 est baissé (indicateur 0 
éteint) ou en Degré, ,Minute,Dixièmes de minute 
(DMT) si Le drapeau 0 est levé (si l'indicateur 
0 est allumé ). 

Attention, si aucune valeur par défaut 
n'apparait, l'angle doit être donné en 





Degré, ,Minute,Dixième de minute (DMT). 

Les coordonnées géographiques + pour Nord et 
Ouest, - pour Sud et Est. Vous n'êtes pas obligé 
de spécifier Le signe +. D'autre part, vous 
pouvez spécifier Le signe simplement en indicant 
N, S, E, ou W apreèsla valeur ( i.e 1925'3 Est 
pourra être tapé 19.253E ou -19.253). 


UTILISATION 


La première fois, ou lorsque l'assignation de 
La touche #155 est effacée, faire "RUN NAVIG' 
(ENDLINE]Ï. L'initialisation commence: 

(Result "“ or '/10 ?]: répondre " ou ! ou rien. 
Selon votre réponse, Les angles seront affichés 
en DMS ou DMT. Aucune réponse: aucun changement. 
(Speroid Eccentricity =  .08199188998 ?1: 
L'excentricité de La terre qui est proposée 
correspond à l'excentricité internationale. Une 
valeur de 0 correspond à une sphère parfaite. 
[Elev. de L'Oeil = 0.0 ?]: si vous vous servez 
d'un sextant. 

[Routes]: Ceci correspond à La première option 
du menu. 


Le menu est divisé en 3 parties: menu 
principal, navigation astro, routes. 


Le menu principal contient Les options suivantes: 
Routes 
Navigation astro. 
Initialisation (INIT) 


Le menu [Routes] contient: (le code entre 


“ 


parenthèses est à utiliser pour l'accès direct). 


- Tenue de l'estime 

(DR) pour Dead Reckoning 
- Distance & Cap Loxo. 

(RL) pour Rhumb-Line 
+ Position par une Loxo. 

(RLPOS) pour Rhumb-Line Position 
- Calcul Orthodromiques 

(GC) pour Great Circle 
- Position sur une Ortho. 

(GCPOS) pour Great Circle Position 
- Trace de l'Ortho. 

(GCPLOT) pour Great Circle Plotting 
- Navigation mixte 

(GCRL) pour Great Circle & Rhumb-Line 
- Menu principal 


Le menu Navigation astro contient: 


- Droite de hauteur 


Ps 


(LOP) pour Line Of Position 
+ Ephémérides Nautiques 
(ALMAC) pour ALMAnaC 
- Menu principal 


Utilisation de La touche [g[ON]]: 

- Sans aucun code affiche au préalable, vous 
entrez dans le menu à La dernière option choisie 
(pas de retour au début du menu). 

- En affichant préalablement un des codes 
d'accès direct (ie. DR [g[ON]]) vous entrez 
directement dans Le sous programme choisi, sans 
passer par le menu. 


Utilisation des différentes éphémérides: 


Le choix de l'éphéméride servant au calcul se 
fait à La question [Which body : 71 . Répondez 
par Le nom (voir note) de La planète, astre ou 
étoile que vous avez observé au sextant, puis, 
si nécessaire par Le nom de l'éphéméride que 
vous desirez utiliser (la premiere lettre suffit). 


Nom des 3 éphémérides: 

PERPET pour les éphmérides du programme 
EPIMENIDES 

INTERPOLATEUR pour les éphémérides nautiques 


Si vous ne spécifez aucune  éphéméride, le 
calcul se fera avec PERPET s'il est en mémoire, 
ou avec EPIMENIDE s'il est en mémoire. Si aucun 
de ces deux programmes ne se trouve en mémoire, 
alors le calcul se fera avec L'INTERPOLATEUR. 
Exemple. [Which body : SIRIUS,E] indique que le 
calcul se fera avec Les épiménides. 

Les épiménides et l'interpolateur sont ce qu'il 
a de plus précis (1/10 de minute d'arc). Le 
logiciel PERPET offre généralement une précision 
généralement supérieure à une minute d'arc. 

Le logiciel PERPET contient Les éphémérides du 
soleil (SUN), de La Lune (MOON), de 4 planètes 
(MARS JUPITER VENUS SATURN) et de 57 étoiles 
(celles des tables américaines). 

Le Logiciel EPIMENIS dispose d'une sous-routine 
permettant de stocker Les paramètres mensuels. 
Cette sous-routine est appelée automatiquement 
quand ces paramètres ne sont pas déjà en 
mémoire. Cette sous-routine peut-être appelée du 
clavier par MRUN EPIMENIS". 

L'option identification d'étoile se fait 
également à La question [Which body:] à laquelle 
il suffit de répondre par “?" Si l'éphéméride de 
travail est PERPET, après 4 minutes de travail, 
s'affichera par ordre de brillance, une Liste 
d'étoiles avec pour chaque étoile, l'écart en 








hauteur et l'écart en azimut. 


Voilà en vrac quelques indications succintes 
relatives à l'usage de mon programme de 
navigation. Pour plus de détails, ou pour vos 
réactions ou commentaires, écrivez moi: 


François LE GRAND, rue de la poterie 
Trevignon , 29128 TREGUNC FRANCE 


NOTE: Vous avez La possibilité de n'introduire 
que Le début du nom de La planète. (Exemple: 
JUPIT ou JUP pour JUPITER) 


LES TABLES DE LA LOI 


Lorsque Moïse descendit le Sinaï, il vit ses 
coreligionnaires danser autour d'un  IBM-AT 
(disque dur: 40 G.0.), La colère le saisit, puis 
il se calma et brandit son HP-71B contenant les 
tables de La loi. Ceci eut l'effet escompté: un 
peu de calcul des probabilités rendirent un peu 
plus humble Les pêcheurs. 


Voici, donc l'utilisation de ces fameuses 
tables: il s'agit des lois du KI2, de STUDENT, 
et de FISHER-SNEDECOR. (Quand à La Loi NORMALE 
il est normal que je n'en fasse pas état). 
Certains des sous-programmes de LOISPROB ont 
paru dans JPC n£ 27 (avec un petit bog). Les 
re-voiçi corrigés et surtout complètés par La 
relation dans l'autre sens. 
Dans Le premier sens Les  sous-programmes 
calculent: 

d?liberté(s), X:réel(>0) > 
1-proba([X,INF[I) (suivant Le cas il y a 1 ou 2 
degrés de Liberté, X est un nombre réel positif 
et on calcule La probabilité d'être supérieur à 
X). 
Dans l'autre sens Le calcule donne: 

d?liberté(s),Q ..>X: nombre tel que 
PIX,INFI=Q (toujours, suivant les cas, il y a 1 
ou 2 degrés de liberté, Q est un nombre compris 
entre 1/2 et 1 et Le résultat X est un réel tel 
que La probabilité d'être plus grande que X vaut 
Q). 
Dans un sens j'utilise modérement Le module 
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MATH (on pourrait presque s'en passer), et dans 
l'autre sens ce module est INDISPENSABLE. Dans 
Le sous-programmes PROBAKI2 Les Lignes 620 à 655 
ont été obtenues par ESTIMATIONS de méthode de 
régression linéaires. En effet, Le problème 
était de résoudre des équations integrales, et, 
vu Le temps (long) mis pour résoudre ces 
équations, il était nécessaire d'initialiser La 
recherche des solutions. D'où ces estimations. 

Une autre difficulté est venue du fait que la 
méthode de Newton, utilisée dans FNROOT (module 
MATH oblige) converge (si elle converge) 
obligatoirement à La préçision 10*(-12), alors 
que 10*(-2) suffit (pour avoir d'ailleurs une 
précision finale de 10*(-4) (Ché-oui). D'où Le 
trafic semi-récursif des fonctions FNK1,FNK2Z et 
FNF1,FNF2. 


SYNTAXE : 
CALL TPROBA(N,T,Q) à DISP Q 
CALL KI2PROBACN,X,Q) à DISP Q 
CALL FPROBA(N,M,F,Q) à DISP Q 
donnent Le sens direct pour respectivement Les 
lois de STUDENT(à N df£), du KI2(à N d®}), et de 
FISHER-SNEDECOR (à N,M d2). 
Le sens inverse sera donné par: 
CALL PROBAT(N,Q,X) à DISP X 
CALL PROBAKI2T(N,Q,X) à DISP X 
CALL PROBAF(N,M,Q,X) à DISP X 
Voilà, essayez. Vous pouvez inclure ces lois 
dans vos programmes. C'est vrai que Le calcul 
est parfois Longuet (surtout pour 
FISHER-SNEDECOR), mais il ne fallait pas oublier 
vos tables. Tout Le monde n'est pas comme Moïse. 


Michel MWEIL 


Format HPAF 


Certains modules ou ROM du HP71 B utilisent le 
format HPAF pour Les fichiers DATAS de tableau de 
données. Qu' est ce que ce format? Ce sont des 
fichiers  DATAs d'un tableau matriciel ACRxC) 
contenant: 

1) à l'enregistrement n° 0: une chaîne de a 
forme 

HHPAFNNSNSS. .."! 
où NNSNSS... représente La forme de La Ligne 


courante de A (ici: Nbre, Nbre, Shaïîne, Nbre, 
Shaîne, Shaïîne...). 

2) A L' enregistrement n2 1: Le nbre de Lignes 
de La matrice. 

3) A l'enregistrement n? 2: le nt E de 
l'enregistrement à partir duquel on ferra des 
descriptions (ou encore l'on se racontera des 
petites histoires), appelé bloc descriptif. 

&) À partir de l'enregistrement n° 3 et avant 
celui n° E, il y aura bien sûr Les données de A. 


Le PROBLEME est Le suivant: Les modules dont je 
parlais plus haut (par ex. lissage de courbe 
(module, qui s'il est bien par certains aspects, 
est à revoir pour d'autres points), etc...) 
demandent l'entrée de données (par ex. à La main) 
et mettent automatiquement ces données sur fichier 
data aux normes HPAF. D'où deux ennuis: 

1m Le ss-pgm (label + gosub-return) de mise à ce 
format est dans un trés, trés grand SUB-pgm, donc 
non accesible de l'extérieur de ce pgm. 

2m Si au contraire on est à l'intérieur de ce 
pgm, que l'on a des résultats intermédiaires (par 
exemples un vecteur ou un matrice), COMMENT Les 
conserver? (en format HPAF ou non) (Le pgm est en 
SUSP) (Notons V(,) ce résultat [si c'est un 
vecteur n'oubliez pas de Le redimensionner par DIM 
v(1,n)1). 


Il y a deux façons de faire: 


a) La machine étant en mode SUSP dans un SUB-pgm 
la ‘seule! possibilité est de taper:  CREATE DATA 
TATA à ASSIGN #28 TO TATA @ PRINT #28;:V et [Cf] 
CENDLINE]. 


b) Vous voulez Le sauver au format HPAF dans le 
fichier F$, alors vous taper 
CALL SAVEHPAF(V(,),N$C),F$) 
Et c'est fait. 


SYNTAXE : 

Revenons aux format HPAF: Pour palier aux 
inconvénients préçités j'ai transformé Le Label 
gosub-return H-P correspondant afin d'en faire 
deux  SUB-programmes autonomes, appelable de 
n'importe où: 

12 Pour sauvegarder, dans Le fichier data F5, 
des données contenues dans Le tableau ACRxC) vous 
taper 

CALL SAVEHPAF(A(,),N$C),F$) 
N$() est Le vecteur OPTIONNEL portant Le nom des 
colonnes (s'il est vide, il est vide, mais mettez 
Le quand même comme paramètre) (et si c'est Le nom 
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des Lignes qui vous intéresse veuillez transposer 
la matrice A). 

2? Pour rappeler Les données contenues dans un 
fichier DATA F$ au format HPAF, c'est tout 
facile: vous tapez 

DIM A(1,300),N$(20) 

CALL LOADHPAF(R,C,A(,),N$S(),F$) 
et le pgm vous sort: R,C,AC,),N$(). 

ATTENTION n'oubliez pas de pré-DIMENSIONNER La 
matrice A (n'IMPORTE COMMENT, pourvu que se soit 
supérieur à La dimension finale de A: DIM ACn,m) 
à DIM A(1,n*m) (pour normaliser La lecture du 
fichier DATA. Compris? (idem pour N$()). 

32 En prime si Le tableau A contient DEJA des 
données et que vous voulez le compléter par 
d'autres données provenant d'un fichier DATA FS, 
alors vous surdimensionner À et N$ et La MEME 
SYNTAXE vous donne Le tableau complété. 

Ceci permet d'ailleurs (en utilisant 
maintenant  SAVE(A(,),F$) d'augmenter l'ancien 
fichier DATA F$1!1! 

42 Le format HPAF est relativement ouvert: j'ai 
choisit Le format 

HPAFNN..N + bloc descriptif(noms de COLONNES) 

52 J'aurai pu, (ce que je fait d'ailleurs 
souvent), ne pas utiliser Le bloc déscriptif, pour 
pouvoir nommer Les LIGNES directemment. Pour 
cela, il suffirait de prendre le format 

HPAFNNN. .NNS 

où S serait Le nom (optionnel) de La ligne des 
NNN...NN. (S peut être d'ailleurs n'importe où: 
NNSN...N irait aussi, mais il ne faudrait qu'UN 
S). Le changement est facile à faire pour ce qui 
est du sub-pgm SAVEHPAF (au besoin demandez moi le 
listing (trés petit)). Pour charger ou Lire un 
tableau par LOADHPAF c'est DEJA FAIT! 

62 A tout hasard j'ai joint un SUB programme 
AIDEHPAF d'aide au formattage HPAF. Syntaxe: 

CALL AIDEHPAF 

72 Je suis l'heureux possesseur du module MATH 
(qui a part l'assembleur-FORTH) est Le module le 
plus utile et que je trouve TRES BON. Par 
conséquent je l'ai utilisé par: MAT AB, 
MAT B=ZERO, UBND(A,i) (c'est La DiMension de La 
Ligne ou de La colonne de La matrice A). Mais Le 
même PGM se bâtit sans ces puissants artifices. 

82 Sans Les remarques, sans AIDEHPAF, sans La 
fonction-réponse OUINON (qui a besoin de KEYWAIT 
(qui devraiENT être à demeure dans votre machine), 
il y a environ 1550 octets. 

Bon, c'est tout, bonne nuit, 


Michel WEIL 


UN CALENDRIER 
POUR LES LECTEURS 
DU FAMEUX PPC PARIS 


Le programme que je vous propose aujourd'hui, 
calcule Les différents paramètres de tracé d'un 
calendrier sur THINKJET. Le programme proprement 
dit (CALEND), tient une place en mémoire de 4382 
octets. Puis il a besoin de 240 octets pour le 
fichier FETES et de 878 octets pour le fichier 
LUNES. D'autre part, il met 776,615 à 
l'exécution. Enfin, pour pouvoir l'utiliser ïl 
vous faudra les fichiers Lex EDLEX et KETWAIT. 


Le programme fait La recherche des principales 
fêtes de l'année (sous forme d'un fichier pour 
les fêtes fixes et calcule la date de Päque pour 
les fêtes mobiles) par Les routines SUB DFETES 
et SUB PAQUES. IL calcule aussi La date et 
l'heure des phases de La lune avec une assez 
bonne approximation (à 2mn près par rapport aux 
valeurs qui m'ont été transmises par Le bureau 
des longitudes). 


Tous Les paramètres et Les équations, ont été 
tirés du livre de Jean Meeus (Astronomical 
Formulae for Calculators). 


Le mode d'emploi est très simple. Vous prenez 
un HP71B, vous y branchez une boucle d'interface 
(HPIL) et à l'autre extrémité de cette boucle, 
une imprimante THINKJET (n'oubliez pas de mettre 
du papier dans l'imprimante). Puis vous Lancez 
le programme. Un premier arrêt demande l'année 
pour Laquelle vous désirez le tracé de votre 
calendrier (le 71 prendra 1986 par défaut). Puis 
au premier bip, le calculateur rempli Le fichier 
FETES, aux 12 bips suivant, il rempli Le fichier 
LUNES et au dernier bip, il trace Le calendrier. 


Les différents messages affichés par Le HP71, 
sont : 


Année?= 1986 
FETES 

Lunes mois nr 1 
Lunes mois nr 2 
Lunes mois nr 3 
Lunes mois nr 4 
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Lunes mois nr 
Lunes mois nr 
Lunes mois nr 
Lunes mois nr 
Lunes mois nr 
Lunes mois nr 10 
Lunes mois nr 11 
Lunes mois nr 12 
Tracé du calendrier 


O0 @œ MN œ 


Attention: Si vous lancez le programme près de 
minuit, vous risquez d'avoir un petit problème. 
La Ligne 5010 stocke La date courante dans une 
variable (A$), et ne La restitue qu'à La ligne 
5040 par SETDATE A$. Si minuit passe à ce moment 
là, A$ ne sera pas incrémenté d'un jour, et la 
date courante sera désormais fausse. 


Le tracé ne peut être fait pour une année 
antérieure au calendrier grégorien, soit avant 
1582 (inclus). J'ai utilisé une méthode fort 
simple de calcul de dates fréquement utilisée en 
calcul mental. 


Pour ceux qui veulent briller en société: vous 
devez vous souvenir d'un nombre: 033614625035, 
où chaque chiffre correspond à Un mois 
“janvier=0": "février=3":; ... Pour vous souvenir 
de ce nombre, vous attribuez 0 à janvier, puis 
0 + 31 (nombre de jours de janvier) = 31, puis 
MO0(31,7) = 3, vous attribuez ce 3 à février 
puis vous faîtes 3 + 28 =31, et MOD(31,7) = 3 
que vous attribuez à mars, ... supposons que 
nous voulons trouver Le jour du 25 décembre 
1985, nous devons ajouter 4 nombres  : 
25 + 85 + 5 (numéro de décembre) + 21 (qui est 
la  INT(85/4)) Le résultat est donc 136 on 
calcule ensuite 136 MODulo 7, et nous trouvons 
3. L'année 1900 commençant un lundi, on compte : 
1=> lundi, => mardi, 3=> mercredi. Le 
25 décembre 1985 est donc un mercredi. Pour un 
siècle antérieur à 1900, il faut ajouter 2 à la 
somme des 4 nombres par siècle (2 pour 1800, 4 
pour 1700 ...). 


La dernière ligne du programme est une fonction 
qui permet Le calcul d'un arrondi. Nous en avons 
besoin à La ligne 5050, La variable K doit être 
arrondie à 0,25 près pour que Le calcul donne 
une valeur exacte. 
Fonction ROUND: DEF FNR(X,N) 

FNR=IP(X*N+.5)/N 

END DEF, vous permet d'arrondir un 

nombre X à N près. 
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Et voilà, ma prose est terminée. J'espère que 
le calendrier que j'ai tracé à votre intention, 
vous servira toute l'année (pour penser à nous 
envoyer des articles pour votre journal 
préféré). Les membres du bureau se joignent à 
moi pour vous souhaiter un 


JOYEUX NOEL et une 
BONNE NOUVELLE ANNEE. 


Philippe 


Janvier 1986 


MERCREDI 1 (Jour de l'an) 


ces mcm mette ns nee nt de de 4 M 2 nn nn en de de en D ne en 


Jeudi  Z: 


00 00 000 0 00 00 6 de 0 en 2 ee ee A A 0 A ER 


Vendredi 3 ; (9 à 19h48nn 


éco 00000 040000 SR DÉS RSR nes 


Senedi 4%: 


ne 00 4-0 ee A A 


Lundi 6: 


css mme mt diese en 2e en nen ee net @r Mie de OR EN Un EU Œnun M ee + En DR 


Mardi 7; 


nm cm ee dde ES Me An ee ee M US mme 


Nercredi 8; 


00 00 00000000 00e ce ie ie M A NO A te M GR A ON A ee AN OA 


Jeudi 9: 


mn me ee nus 0 nn 0 0 ee de de ce ed A CO OO 0e 0e ed A ER AR RE nn nt 0 


Vendredi 10 : NL à 12h24 


ne ne as en ann en mn de md A A 4 A M GC A 


Senedi 11: 


0 am un ce 100 10 ee ie M A A A A ee A A A 


LANCE 12 } 


ces cmt ed nd dan ds en An en ee Ann dd de LE ARR dE ER RÉ ee 


mem 00 un ee MM dd 0 A ee On ee ee CE A A AA A 


Mercredi 15 ; 


un nd dd 0 00m 0 On en 0 A M ie SU A OC A 


Jeudi 16: 


00 0 on cu cu cu ce nn re te ee A Ci A A CO Ce M ie ie A CCR ne de dd td de CE A 0 0 


PQ à ZZhlma 


ess mme ed Sense MES Sn À DR 


Senedi 18: 


Lundi Z: 


Mercredi 22 : 


0 0 0 000 0-0 de AA A de A OS A 0 ie A A D A A SG A OR 


Jeudi 23: 


nn 0 0m 0e 0 0e de ee oO Ce Éd M A OA ie ON CO 


Vendredi 24 : 


220 er dt ee de de ne den ne ne 0 A AS RC A A en 


Sanedi 25: 


né eu em en nn nn ne Se AU Éd NS A en ee A ES EN EE A M ee 


DIMANCHE 26 : PL à 0h33an 


0 00 00 00000 0 0e ed 2 2 A D 


Lundi 27: 


mm 0 0e 0e Ce cet de de de M Un M OC 


Mardi 28: 


0 on 0 0 ee eme ne A de de 0 ee 222 el 


Mercredi 29 ; 


20 20 0 0 00000 0e ee ee A 


Jeudi 3%: 


_ 220 00 0 00 000 000000 6 A A 0 ER A 


Vendredi 31 ; 


OO Ce 0 ed EE nn ne 8 mn den 0m 0 Ce re fé Ale A A A CO Ce 


nt 





NAVIG 


- Programme de navigation 
Auteur : François LE GRAND 
Rue de La Poterie Trevignon 29128 TREGUNC F 


L'utilisation de ce prgm n'engage que l'utilisateur qui, en navigation, doit garder son 
esprit critique. 


100 ‘INIT': DELAY 2 à 'SECD': DISP ‘Results " ';:" or 1/10"; à USER OFF à INPUT ! !,17';A$ 
104 STD à IF A$=17! THEN 112 

108 IF AS=t"1 OR A$(1,1]="1" THEN A=FLAG(O,NUM(A$)-34) ELSE 100 

112 USER ON à 'EXC': E9=.08199188998 à DISP 'Spheroid Eccentricity =!';E9; 

116 ON ERROR GOTO 120 à INPUT !!,17!:E9 


ZS2S2S2SSSSSS2SSSSSSSSLISSSSSISSSSSSSSELISESSESSSIEZSEEZZEZZESEES 
120 ‘EYE': A=E0 à DISP "Elev. de L'Oeil = ": à GOSUB 'INPMT!' à EO=A 
124 DEF KEY '#155!,'IFDISP$S="NTHENRUNNAVIG, "AN&MS$(2,2]ELSERUNNAVIG,DISPS!: 
128 INTEGER N,1,J,S,M,Y à SHORT Z,21,01,D2 à DIM M$[2],A$(22]1,B8$[15] 


200 ‘A': !AP1: N=POS('RAM!,M$S(2,2]) à M$='MP! Q N=N*(N>0)+1*(N<1) 
204 ON FNNCN,3) GOTO 212,220,100 


208 ‘MP': DATA Routes, Navigation astro.,lnitialisation 
212 M$='MR' à N=1 


A CR A AU A SC CR CE CR (RC CR CR (UE AE (A (RCE (RS (MR CE CR CR A CE CR CE CE (CO CE (CE A CR CU AE A CE M CR CO M M CR CO CE M CE CO A CE CO 
2 —— 


216 'AR': N=FNN(N,8) à ON N GOTO !DR!,'RL','RLPOS!,!GC','GCPOS!, 'GCPLOT!', 'GCRL!,200 
220 M$='MA'! à N=1 


mm mm mme ee me ee ee © ne un ue = = ee ue ee ue ee ee ue ue ue ne me eu ue ue ue ue ue Cu Ce ee Ce ee Ce US Se CS 
ne te A A MS M A de A de A A A A dt AS US CUS M AN UE AUS UE AE AR AU UN UNS ANS UNS AN UN UN UN GUN CN GUN CE CN CN CR CN CR CE CN CR CON AN CN AN CN CS CN CN GS CS GE 


224 ‘AA': N=FNN(N,3) à ON N GOTO !'LOP','ALMAC!,200 


SIZE SZZZZZZZEZZEEE=ESEE===EE EEE EEE EE === mm 

300 ‘MA': 'LOP': DATA Droite de hauteur ,Ephemerides Nautiques, Menu principal 

_ 304 A$='D.R.' à GOSUB ‘IN! à CFLAG 11 

308 GOSUB ‘INPDT' à GOSUB ‘’INPX' à GOSUB !'REF!' à GOSUB 'ALM' à P=A0-G1 à CALL SRT(DO,L1,P,H2,2) 
316 1F B$(1,4]='MOON' THEN H2=H2-VAL(A$S)*COS(H2) Q D8=ATAN(D8/(1/TANÇCVAL(AS))-SINC(H2))/VALCAS)) 
320 FIX 1 à C=(H2-D8-H)*60 à DISP B$;' Int. =';ABS(C);CHR$(65*(C>=0)+84*(C<0)); d STD 

324 A=Z à DISP TAB(25+LEN(B$));'Az. = !';: @ GOSUB 'DPC' à DISP à PAUSE à GOTO 308 


350 ‘ALMAC': GOSUB ‘INPDT' à SFLAG 11 Q GOSUB ‘'ALM' Q GOSUB 'DSPCO' à PAUSE à GOTO 350 


an un ce 0 ce Cu de Ce A de de CE CE CE CR CS A A CO A Co Ce Ce Ce CE de ie Monte (nt Me nt ct M le dt dé A ANR AN A An A A M A ANS AN MU AUS Au GS CN Au Qu un dun cum 
me ee 0 ee Ce ee ee CS RO UC CU UE CE CE CUS CU CS US CS US SOU ue ue Ce OO CN UN CR 0 CU US UC UE 


1000 :'MR': 'DR': DATA "Tenue de l'estime! 
1004 GOSUB 'RL2' Q A$='D.R.' @ GOSUB 'DSP2! à GOSUB 'SP' à GOTO 'DR' 


1020 'RL': DATA Distance & Cap Loxo. 
1024 GOSUB 'INP2: à GOSUB 'RL1' à GOSUB 'DSPDC' à GOSUB 'SP! q GOTO 'RL' 


1050 'RL1': GOSUB 'MA2! Q SFLAG -1 à Z=ATAN(RED(G1-G2,360)*P1/180/(LNCA/B)+(G1=G2))) 
1054 IF NOT COS(Z) THEN D1=ABS(RED(G1-G2,360))*COS(L1) ELSE D1=(L2-L1)/C0S(Z) 
1058 Z=MOD(Z+180*(D1<0),360) à D1=ABS(D1*60) à RETURN 
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1100 'RLPOS': DATA Position par une Loxo. 
1104 GOSUB 'RL2' Q A$='Arr.! à GOSUB 'DSP2! à GOSUB 'SP! @ GOTO 'RLPOS! 


———_— — _ 
LLSSSSSSSSSSSSSSSSSESSSSSSTITSSIZSZIZSSZSSSSTSTST=ES EEE ESS === 


1150 'RL2': A$='Dep.' @ GOSUB ‘IN1' à GOSUB ‘INPC' &@ GOSUB ‘’INPD' à L2=RED(L1+D1*COS(Z2)/60, 180) 
1154 IF NOT COS(Z) THEN G2=RED(G1-D1*SIN(Z)/60/C0S(L1),360) @ L2=L1 à RETURN 
1158 GOSUB 'MA2' à SFLAG -1 à G2=RED(G1-LN(A/B)*TAN(Z)*180/P1,360) à CFLAG -1 à RETURN 


2000 ‘GC': DATA Calcul Orthodromiques 

2004 GOSUB ‘INP2' @ CALL SRT(L2,L1,G2-G1,A,Z1) à D2=(A-90)*60 à A=D2 à GOSUB ‘DPD' 

2008 A=21 à DISP TAB(25):'Initial Head. = !';: @ GOSUB 'DPC' à DISP à PAUSE à AS$='Vrtx.! 

2012 A=ACOS(ABS(SIN(Z1))*COS(L1))*SGN(COS(Z1)) à GOSUB 'DSPL' à DISP TAB(25); 

2016 SFLAG -1 @ A=G1-ATAN(1/(TAN(ZT)*SIN(L1)))+180*(L1*COS(Z1)<0) à CFLAG -1 

2020 GOSUB 'DSPG' à DISP à PAUSE à GOSUB 'RL1' à A=D1-ABS(D2) à DISP ‘Gain / '; à GOSUB ‘'DPD! 
2024 DISP Q PAUSE à GOSUB 'GC1' à PAUSE à GOTO 2000 


DD SRE RM mm M M MMM SELS LSLLSLSESEES= ss === 
2100 'GCPOS': GOSUB 'INP2' Q DATA Position sur une Ortho 
2104 1=99 à GOSUB 'GC2' à L2=L à G2=G à GOTO 2104 


2200 :GCPLOT': DATA "Trace de lL'Ortho." 
2204 GOSUB ‘'INP2: à GOSUB ‘GC1' à GOTO 2204 


2300 1'GC2': L=L2 à G=G2 Q INPUT 'Long.(+) or Dist.(-) !,1?1:C @ IF C>0O THEN SFLAG 5 

2304 FOR 1=I TO 99 Q DISP ! Working...' à CALL SRT(L,L1,G-G1,A,21) à IF FLAG(5) THEN 2324 
2308 CALL SRT(90+C/60,L1,Z1,L2,A) à G2=G1-ABS(RED(A,360))*SGN(SIN(Z1)) 

2312 AS=STR$S(1)&'.! Q IF 1=99 THEN A$='Int.! 

2316 IF RED(G2-G1,360)*RED(G-G2,360)<0 THEN 2336 

2320 GOSUB ‘'RL1' à GOSUB 'DSPDC' à DISP à PAUSE à GOSUB 'DSP2! à GOSUB !'SP' à NEXT I à RETURN 
2324 IF 1=1 OR 1=99 THEN A=-SGN(SIN(Z1))*C Q C=FNR 

2328 B=C à IF 1=1 AND FP(B)=0 THEN B=B*INT((G1+B)/B)-G1 

2332 G2=G1+B à L2=ATAN((SIN(L1)*COS(B)-SIN(B)/TAN(Z1))/COS(L1)) à GOTO 2312 

2336 G2=G à L2=L Q GOSUB 'RL1' à GOSUB 'DSPDC' à CFLAG 5 @ AS$='Arr.! 

2340 DISP Q PAUSE à GOSUB 'DSP2! @ RETURN 


un un qu cu us ue us cs cs cs du x due cu ee ue ue ue ue tn tue ‘nt dé cote de di A dote de de de Me M A MU A A AUS A A A A CE M CE Ce Ce EC CO CE CU Ce A A UE CU A Ce 
= ee en ee = ee ee = = ne ne né un us us un 20 Æue ue en un + ne + un + + en + + + + + + + + + + Un ue né 0 US US Son un ne es ne 2 © = 


2400 'GCRL': DATA Navigation mixte,Menu principal 

2404 GOSUB ‘INP2' à CALL SRT(L2,L1,G2-G1,A,21) @ G=ACOS(ABS(SIN(Z1))*COS(L1))*SGN(COS(Z1)) 

2408 A$='Max.! à A=G 

2412 GOSUB ‘IL! à L=A à IF ABS(G)<ABS(L) THEN DISP ‘Max.Lat. > Vertex Lat.' à PAUSE à GOTO 2404 
2416 G=G2 à A=L à L=L2 9 L2=A à A=L1 à GOSUB 2450 à G2=G1-A à A$='1.Max.' à GOSUB 'DSP2! 

2420 DISP à PAUSE à A=L à GOSUB 2450 à G2=G+A à A$='2.Max.' @ GOSUB 'DSP2' à DISP a STOP 

2450 A=ABS(ACOS(TAN(A)/TANÇ(L2)))*SGN(SIN(Z1)) à RETURN 


ZESSSSSSSSSSSSSSSSSSSTSSTSESESTETSESSSSSSSESZzS==S=========z===-=-=- 

4000 'DSPL': DISP AS:'Lat. = ; Q 'DPL': S=83*(A<0)+78*(A>=0) 

4004 IF FLAG(O) THEN DISP USING 4008:FNH,FNM,FNT,S ELSE-DISP USING 4012;FNH,FNM,FNS,S 
4008 IMAGE #,22Z,11,22,"t1,2,X,B 

4012 IMAGE #,22Z,'1,2ZZ,MtM,22,1u1,X,B 

4016 RETURN 


=. x ue com me eme on come ie dé ce cé dé de due (au dame dame tu tonne tnt tt te dt cé die ce de A de (A de Ce M (OC (CO (Ce Ce “ot A de de te US CS CE CS S C C  n n n 
CSS 0 2 2 2 OS D ee Que A e A Ne te doute Ne A NS NS A A CS CN OS GUN A GR GUN GUN GS GENS CONS CN NS CN AN nt ét ÆN ON nn 
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4020 ‘DSPG': DISP A$:'Long. = !: à S=69*(A<0)+87*(A>=0) 


RE 

4024 'DPG': IF FLAG(O) THEN DISP USING 4028:FNH,FNM,FNT,S ELSE DISP USING 4032; FNH,FNM,FNS,S 
4028 IMAGE #,2ZZZ,'1,2Z,"in ,2,X,B 

4032 IMAGE #,22Z,11,22Z,"1M 22,101 ,X,B 

4036 RETURN 


LSESSTSTLISI ISLE SIT TTTTTTTT TT TT TT TT TT TT TT TT TS 
4040 'DSPDA': DISP ‘Date(dmy) = ‘; à DISP USING 4044;D,M,Y à RETURN 
4044 IMAGE #,22,'/1,22,1/1,42 


4048 'DSPTI': DISP ‘Time = !; Q DISP USING 4052;:FNH,FNM,FNS @ RETURN 
4052 IMAGE #,2(22,':'),22 


SELS ee PCI TROT TP TTPERTATSETSITIETTTIZTE Sr SSsssssss 
4056 'DC': DISP ‘Course = ‘; à 'DPC': DISP USING 4060;FNH,IP(FNC/10) à RETURN 
4060 IMAGE #,32Z,11,2 


SES SEESSSESSESSESSEETES ESS ETTTTESTSSTSSSSSsST ZT == === 
4064 'DPD': DISP USING 4068:FNH,FNC @ RETURN 
4068 IMAGE #,'Distance = ! ,K,"i"n 27 


Os ue 0 AU A AS CE AU MS CE CE (UE ME CU CE (UE ME M RC CN MU CE M CE CON CO Ce Ce A Ce CE ne Ce A AE Ce ME A AR Mt nt CNE A A A Ce cut CE UN CE M A AS NS ANS < MS UNE CUS US cn 
= nn te tie ue te ie de ct ce le le mé ce le de Aie AS ut Me AU AS AU AE AU AU UE AU AU AE AE UE AU AS AE UE A (UE CU (UE CN CE CR CE GE CON M CE A CE AU CE AUS CU Ce CE AE ME Ce Ce Ce 


4072 'DSPMT': FIX 1 @ DISP A;'m'; à STD à RETURN 


0 AU AU) AUS A AE AR CR A A CE A AU NS AR AUS A (ER (UE CR CR CR CU (UE CR CE CE CE CE A AS (AE A A ( CE CE CE CE CE CE CE Ce me — 


4200 'DSP2!': A=L2 @ GOSUB 'DSPL' à A=G2 à DISP TAB(25); à GOSUB 'DSPG' à RETURN 


4208 'DSPDC': A=D1 à GOSUB ‘DPD' à A=Z à DISP TAB(25); à GOSUB 'DC' à DISP ! 1; à RETURN 


4216 'DSPCO': S=32 9 DISP B$; 

4220 IF FLAG(10) THEN DISP ! sha = !; @ A=MOD(AO-G0,360) à GOSUB 'DPG' à DISP TAB(25+LEN(B$)); 
4224 DISP ‘ gha = ‘: à A=A0 à GOSUB 'DPG'! 

4228 DISP TAB(25+LEN(B$)+25*FLAG(10,0)):'dec. = ';: à A=D0 à GOSUB 'DPL' à DISP à RETURN 


ce ce ne coté cé coté dote ce cote cote cote ce cote ce ct ce te conte te te ce cote ct ce “te cote ce cote ce cote ie te ét te ct ce ct cé ct te dt ct de ce dote ct ct conte ce ce cé coté ce tt cé ci dt dt ct dt 
LL LL LL LL LE 1 2 


= — 
OS US QUES UE CE UE AUS MU US (US MU US US AUS ANR CR AU UUR ŒU MUR UE Œ CN MN CU GUN CN GUN CN GUN CN GUN CN CR COUNN CN CON (OU GE NN AN CON CUS GS CN ŒN UN CON CN UN CN CON CONNUE CON CON CN CON CN A CON 


4408 ‘INT': A=L1 Q GOSUB 'IL' à L1=A à A=G1 à GOSUB 'IG' à G1=A à RETURN 


ZIZS2SSSSSSSSSSSSSSSSSSISISZSSSSESSSSSSSSSSSSESESEZSZSEZESZSES 
4412 ‘INP2': A$='Dep.! à GOSUB ‘INT! à A$='Arr.! Q A=L2 à GOSUB 'IL' Q L2=A à A=G2 
4416 GOSUB ‘IG! à G2=A à RETURN 


== em © ce = = _ _ — _ — 
STRESS == === == === == === === === 


4420 *INPDT': GOSUB 'DSPDA' à ON ERROR GOTO 4424 Q INPUT ! !,1?!;:D,M,Y àQ GOTO 4428 
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tt 


4424 IF ERRN=4O THEN Y=10000*FP(100*D) à M=IP(100*FP(D)) à D=IP(D) 


= = ue ue ue ee un ue un ue + + œ ee eu + onu mn ut és us Au AN NS UN US EN CN UN CN UE UN CN MN MN UN UN MS UN Me UN US En Cu ee ee _ _ _—— 


4428 YINPTI': A=T @ GOSUB 'DSPTI' à GOSUB 'FNI' @ T=FNR2 à RETURN 


4432 'INPC': A=Z à GOSUB 'DC' à GOSUB 'FNI' à Z=A à RETURN 


_— _ __——— — —_ + _ 
SLESSESSSSSSSSSTSSSZESSSSSSESSEZEZSSESSEZEZS=SE==Z===-=-=======---- 


4436 'INPD': A=D1 à GOSUB 'DPD' Q GOSUB !FNI‘ Q D1=A 4 RETURN 


CESSSSSSSSSSSSTSTTSESSIITSSSSSESTSTTTETESTEEEEE=======S=ZzSZ===Ezzzz 


444Q *INPX': INPUT ‘Sextant height = ','7?';A @ H1=FNR @ RETURN 


= 0. 0 + + ee eu = 0 ef 4 S 4 4 4 eu Ou ON QU UN AN UN QU) ee Ou) + Eu MN e AUS un NU ND AU A AU AUS UN AS AUS AUD ENS D CUS UN EU US CUS US US AS D ne ee 
OR 0 un us dus du ue ms us us Cu ue Ce Cou due de de Ce A ANS ANS MUR MERS AN AU CS CU CEE CEE CONS CON CO A CNE CE OU OU Ce A Ce CO CO Cm die Aie dite A NS ANNE ON AN AIR A A A ON ANNE AR 


4444 1INPMT': GOSUB 'DSPMT' à GOSUB 'FNI' @ RETURN 


S====S2SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSESESSESSESSSEEES 
4448 ‘FNI': ON ERROR GOTO 4460 Q INPUT ! !,17';:B$ à A=VAL(BS) 
4452 1F POS('SE!' ,UPRC$S(B$S[LEN(B$)])) THEN A=-A 

4456 OFF ERROR à RETURN 

4460 PCP à OFF ERROR @ RETURN 


4600 'JD': T1=367*Y-INTCINTCINT((M+9)/12)3+Y)*7/4)-INTCINTOINTOINT((M-9)/7+Y)/100)+1)*3/8) 
4604 T1=T1+INT(275*M/9)+D-730516.5+T/24 Q T2=71/36525+1 Q RETURN 


4608 1REF': H=H1+.97*(TANCH1-ATANC(H1+3)*12))-SQR(E0/.3048))/60 @ RETURN 


4612 'MA2!: A=L2 à GOSUB 4616 à B=A à A=L1 à GOSUB 4616 à RETURN 
4616 A=COS(A)/(1+SIN(A))/CC1-E9*SIN(A))/C1+E9*SIN(A)))"(E9/2) à RETURN 


4800 'ALM': GOSUB 'JD' à D8=Y à G0=M à DO=D à AO=H à B$='! 
4804 ON ERROR GOSUB 4816 à INPUT 'Which body : !,'?':A$,B$,A 
4808 1F '2'=AS$ THEN ‘FIND’ 

4812 CALL BSCT,T1,72,A$,8$,D8,A0,00,G0) à RETURN 

4816 B$=UPRCS(B$S (1,11) à IF ‘'=8$ THEN B$='P! 

4820 ON ERROR GOSUB 4832 à CALL B$ 

4824 BS=CHRS(MOD(NUM(B$S)-58,22)+69) à CALL 8$ 

4828 B$='1' à RETURN 

4832 1F ERRN=36 THEN POP 

4836 RETURN 


PT LT LL Rte 44-44 44.4.4.4-4.4-5-1 
= en dus cs cu tft cm ee cu Cm ue Cou (ou Cou (de A A A EN MS AS GUN AN GUN CN GUN COUR A COUR OU CR A CE NC A A de CO A come dt cie At CN AN ANNE AN NN NN A A CNE A CR 


4840 'FIND': IF FLAG(11) THEN 'ALM' 

4841 INPUT 'Star azimut = !,'2!;:2 Q CALL SRT(H,L1,Z,A,B) à IF 'P'=8$ THEN 4856 

4844 SFLAG 10 

4848 CALL BSCT,T1,T2,'ARIES',A$,D8,A0,D0,G0) à DO=A à A0=B+G1 à B$='Star! à GOSUB 'DSPCO! 
4852 PAUSE à GOTO 'ALM' 

4856 DIM C$[100] à FOR J=7 TO 68 Q CALL PCT,T1,T2,STR$(J),B$,08,A0,00,G0) 

4860 IF ABS(AO-G1-B)+ABS(DO-A)<20 THEN GOSUB 4868 

4864 NEXT J à DISP C$ àQ PAUSE à DESTROY C$ à GOTO 'ALM' 

4868 A$=B$ 9 B$='P' à GOSUB 4812 Q P=A0-G1 àQ CALL SRT(DO,L1,P,H2,C) @ OFF ERROR 

4872 CH=CHEBSE" 'ESTREC(IP(H+DB-H2))8&! — 1ESTRE(IP(C-Z))&! / ! à RETURN 


8000 DEF FNH=IP(AES(A)) 
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8008 DEF FNS=60*FP(60*(ABS(A)+.000000001)) 


_ A QC US CE CURE ME M ME M Me CE ME (ES (NN ANUS AN M M M ie ile _ Meme Se ee Se 


8012 DEF FNC=IP(100*FP(ABS(A))) 


=EZT==Z=ZZ============ = == === 


8016 DEF FNT=IP(10*FP(60*(ABS(A)+.C00000001))) 


an us ut Ce ue Ce A Me CU MN CU M CU Ce M Me Me MS M MN M M MU NN MN CU M UN A ME AN M Oe MN NS ANS ON M A Mn M Ole Mt ue Ole mie ne M A A A due ut At AN Ant ANR A NN A OU 


8024 DEF FNR1=IP(A)+FP(A)/.6 


SZZZ=ZZZZZZ=ZZZZZZZ=Z=Z-===-=-EL======Z==========-==========-=====-- 


8028 DEF FNR2=IP(A)+(FP(100*A)/.6+IP((A-IP(A))*100))/60 


8032 DEF FNN(J,E) 

8036 RESTORE M$ Q J=1*(J<1)+E*(J>E)+J*(J>=1 AND J<=E) 
8040 FOR 1=1 TO J à READ A$ à NEXT I à DISP AS 

8044 B$S=KEYS à IF B$=!! THEN 8044 

8048 IF B$='#51! THEN J=J+1 à GOTO 8036 

8052 1F B$='#50! THEN J=J-1 à GOTO 8036 

8056 IF B$='#162! THEN J=1 à GOTO 8036 

8060 IF B$='#163! THEN J=E à GOTO 8036 

8064 1F B$#'#38' THEN 8044 ELSE FNN=J 

8068 END DEF 


9500 SUB ICT,U,V,A$,8$,Y,H,D,M) à A=(POS('ARIVENMARJUPSATMOOSUN! ,A$[1,31)+2)/3 à B$=A$ 

9504 IF A<2 THEN 9536 

9508 DISP B$:! gha <!':STR$S(IP(T)): à INPUT 1:00> = !,121:G Q DISP B$;:' gha <':STR$S(CEIL(T)): 
9512 INPUT !:00> = !,171:B à G=MOD(FNH(G)+RED(FNH(B)-FNH(G),360)*FP(T),360) 

9516 DISP B$:' dec. <':STR$S(IP(T)): à INPUT !:00> = !,121:D à DISP B$;:' dec. <':STRS(CEIL(T)):; 
9520 INPUT ‘:00> = !,12!:B à D=FNH(D)+(FNH(B)-FNH(D))*FP(CT) 

9524 IF A-5>0 THEN INPUT ! : 1,121:Y Q Y=(Y-2*Y*(!U'=B$ [LEN(B$S)] ))*(POSC'UL! ,B$[LEN(B$)] )>0) 
9528 IF MOD(A,7)>0 THEN INPUT ? : 1,121:p 

9532 Y=P*COS(H)+Y à H=G à GOTO 9552 

9536 DISP 'ARIES gha <':STRS(IP(T)); à INPUT ‘:00> = !,'21:M @ M=FNH(M)+15.042*FP(T) à G=M 
9540 IF A=1 THEN 9552 

9544 DISP B$: à INPUT ! sha = !,'2!:H à H=MOD(M+FNH(H),360) 

9548 DISP B$: à INPUT ! dec. = !,1?':D à D=FNH(D) à SFLAG 10 à Y=0 


a un Ce A Cut US CS US CE A A da de A Mu CU CU CE Cu CU Ce (ue M Ce (UE E M ME M CN M CE CO CE CN CN CNE CN CN CE CN UN CN NE CN NE CN Ce A A Me M ie M “nt ie AN mu ci A A 
= mm 


9700 SUB SRT(D,L,P,H,Z) @ ON ERROR GOTO 9708 
9704 H=ASIN(SIN(L)*SIN(D)+COS(L)*COS(D)*COS(P)) à A=ATAN(SIN(P)/(TAN(D)*COS(L)-SIN(L)*COS(P))) 
9708 Z=(180*((SIN(P)>=0)+1)-ABS(A))*(A>=0)+(180*(SIN(P)>=0)+ABS(A))*(A<0) 


. 
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148 


ON ERROR GOSUB 50 à FS=UPRCS(AS [1,3] )&STRS(MOD(Y, 100))8'M'&STRS(M) à A=HTD(ADDRS(FS$)) 
Y=0 à ASSIGN #1 TO F$ à A=ACOS((T/24+D)/16.5-1) à IF FLAG(10) THEN D=0 à H=0 à GOTO 42 
READ #1:B$,G(),C,0(),P à IF UPRCS(AS(4])='L' THEN Y=C 

IF UPRCS(AS[4])= Ut THEN Y=-C 

Y=P*COS(H)+Y à A=ACOS((T/24+D)/16.5-1) à H=0 à D=0 

FOR 1=0 TO 6 à H=H+G(1)*COS(A*I) Q D=D+O(1)*COS(A*I) à NEXT I à H=MOD(H,360) à GOTO 54 
READ #1;:A$,G(0),G(1) @ M=MOD(G(0)+G(1)*COS(A),360) à IF POS(B$,'ARI') THEN 46 

DISP B$: à INPUT ! sha = !,'?1:H à DISP B$; à INPUT ! dec. = !,'21:D 

D=FNH(D) à H=MOD(M+FNH(H),360) à GOTO 54 

CALL CO(AS,Y,M) à RETURN 


SUB COCAS$,Y,M) à DIM G(6),D(6) à INTEGER 1 @ IF FLAG(10) THEN 108 

ON ERROR GOTO 104 à INPUT ‘English Name : ! ,A$:A$ 

ASSIGN #2 TO AS(1,3]&STRS(MOD(Y, 100))&'M'&STRS(MOD(M,24)) 

INPUT 'gha Test = ,'2!:T Q DESTROY H à ON ERROR GOSUB 148 

FOR 1=0 TO 6 à DISP ! a (':STR$S(I): à INPUT ‘) = !,121:G(1) à H=H+G(1)*COS(180*1) à NEXT I 
OFF ERROR à IF ABS(MOD(H,360)-IP(T)-FP(T)/.6)>5/6000 THEN DISP 'New !; à GOTO 112 

IF UPRCSCAS(1,31)='ARI' THEN 144 

INPUT ! = 1,121:C à DESTROY H à INPUT ‘dec. Test = !,'2!:T @ ON ERROR GOSUB 148 

FOR 1=0 TO 6 à DISP : d (':STRS(I); à INPUT ‘) = t,'21:D(1) @ H=H+D(1)*COS(180*1) à NEXT 1! 
OFF ERROR à IF ABSCH-IP(T)-FP(T)/.6)>5/6000 THEN DISP New '; à GOTO 128 

INPUT ? = 1,121:P à PRINT #2;:A$,G(),C,D(),P à END 

PRINT #2:A$,G(0),G(1) à END 

1=7 à RETURN 


He de ee he he he He He ee eee A ee CR Re ee ee he ee eee ee ee ee ee ee ee ee ee ee OR A ER RER N 


PERPET 


90 
100 
110 
120 


— us cu un ue “x ue “ue ue ut ut ut At AN UN AS A GE UNS MUR CN AN CN AN MN NN A A MN A AN A ue At Me ut dt AS A CUS CN CS A CN NN AE Ge OUR CU AN GS GR ŒN ŒE Œ Œ 
mm em mu eu un ue Me due MN UN NS AUS A AS GS AUS CS CN CN CN CNE CON CE CUS OUR CN QUE CU CN M CN Ce CN ON Cu CN CN Gt AN GE GUN ANS GENS Ou CUS CS CS CS Ce 


SUB PCT,T1,72,A$,B$,D8,A9,D0,H9) 
DIM C$(25] à C$=A$ Q ON ERROR GOTO 1480 Q A=VAL(AS) 
DISP ‘Working for !':A$;! ...! @ OPTION ROUND NEAR 


'ARI': A1=12-7/24/36525 à D8=0 

H9=MOD (MOD((A1*.000387083+36000.76893)*A1,360)+99.69098325+7*15.04106863,360) 

D0=0 à 1F C$[1,3]1='ARI' OR A=69 THEN A9=H9 à B$='ARIES! @ END 

M1=218.31624+13.1763964644*T1 à M2=134.96292+13.0649929524*T1 9 M3=93.27276+13.229350272*T1 
M4=297.85032+12.1907491128*T1 à M5=125.04348-.0529538076*T1 

s1=280.46592+.9856473516*T1 à S2=.98560026*T1-2.47464 

L2=181.97928+1.60216872372*11 à G2=50.40828+1.6021302228*T1 Q F2=105.29928+1.6021440612*T1 


INTEGER Y,M à INPUT ‘Annee = !,'2!:Y Q INPUT ‘Mois = ‘,1?!;:M @ CALL CO('2?!,Y,M) 
SLSSSSSSSSSSSLSOSSILISSSESTZIZSTZTSSSETZTZ TZ ZT SES StzzSSzz3zz 

SUB ECT,U,V,A$,B$,Y,H,D,M) à DIM F$[8],G(6),0(6) à INTEGER I 

IF NOT POS('SUVEMAJUSA! ,UPRC$(AS[1,21)) THEN B$=A$ Q AS$='ARIES! à SFLAG 10 

L4=355.44708+.5240711808*T1 à G4=19.38816+.5240207772*T1 à F4=305.88984+.524050074*T1 
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130 L5=32.25888+.0830912148*T1 à G5=20.35116+.0830912148*T1 

140 L6=47.9862+.0334597356*T1 à G6=317.87532+.0334597356*T1 

150 E9=21107/900-47/3600*T2+COS(M5)/400 à D9=17/3600*SIN(M5) 

170 ON ERROR GOTO 180 à ON A GOTO 190,200,210,290,280,295,430,490,550,630 
180 ON ERROR GOTO 1340 @ GOTO A$ à OFF ERROR 


SZ ==Z=-= === ==========-=-=-= 

210 'SUN': GOSUB 230 à B$='SUN' à GOTO 740 

230 X=6910*SIN(S2)+72*SIN(2*S2)-17*T2*SIN(S2)-7*COS(S2-G5)+6*SIN(M1-S1)+5*SIN(4*S2-8*G4+3*G5) 
240 X=X-5*COS(2*S2-2*G2)-4*SIN(S2-G2)+4*COS(4*S2-8*G4+3*G5)+3*SIN(2*S2-2*G2)-3*SIN(G5) 

250 X=(X-3*SIN(2*S2-2*G5))/3600+S1-D9 à Y=0 

260 Z=1.00014-.01675*C0S(S2)-.00014*COS(2*S2) à D8=ATAN(.00466/2)*D8 

270 CALL LBRYZX(Z,Y,X,E9) à X5=X @ Y5=Y @ Z5=2 Q CALL XYZHAD(X,Z,Y) @ RETURN 


295 'MOON': B$='MOON" 

310 X=22640*SIN(M2)-4586*SIN(M2-2*M4)+2370*SIN(2*M4)+769*SIN(2*M2)-668*SIN(S2)-412*SIN(2*M3) 
320 X=X-212*SIN(2*M2-2*M4)-206*SIN(M2-2*M4+S2)+192*SIN(M2+2*M4)+165*SINC2*M4-S2)+148*SIN(M2-S2) 
330 X=X-125*SIN(M4)-110*SIN(M2+S2)-55*SIN(2*M3-2*M4)-45*SIN(M2+2*M3)+40*SIN(M2-2*M3) 

340 X=X-38*SIN(M2-4*M4)+36*SIN(3*M2)-31*SIN(2*M2-4*M4)+28*SIN(M2-2*M4-S2)-24*SIN(2*M4+S2) 

350 X=(X+19*SIN(M2-M4)+18*SIN(M4+S2))/3600+MOD(M1,360) -D9 

360 Y=18461*SIN(M3)+1010*SIN(M2+M3)+1000*SI1N(M2-M3)-624*SIN(M3-2*M4)-199*SIN(M2-M3-2*M4) 

370 Y=Y-167*SIN(M2+M3-2*M4)+117*SIN(M3+2*M4)+62*SIN(2*M2+M3)+33*SIN(M2-M3+2*M4)+32*SIN(2*M2-M3) 
380 Y=(Y-30*SIN(M3-2*M4+S2)- 16*SIN(2*M2+M3-2*M4)+15*SIN(M2+M3+2*M4) )/3600 

390 Z=60.36298-3.27746*COS(M2)-.57994*COS(M2-2*M4)-.46357*COS(2*M4)-.08904*COS(2*M2) 

400 AS=STR$S(ATAN(1/2)) à D8=.2725*D8*ATAN(1/2) à 2=Z/23454.8 

410 CALL LBRYZX(Z,Y,X,E9) @ CALL XYZHAD(X,Z,Y) à GOTO 740 


nn ce come ce ce one “te coté conte “te ce cote te one coté cote ce co cé ce te dt te ct de dt dé de M été dé dt té A da SR A de (<a me Ce de 
A CR CU CUS CE CU CEE CU CU CU MUR UE AU CE AUS MN MN MN CNE MUR ANNE CE CU CN CON A (CE M ON CN ON Ce Co CN den ON A Cie A ON AN A it A ON AN A Ne AN ANS ANR CN CN AN Ce GE A CR nt 


430 'VEN': GOSUB 230 à B$='VENUS! 

440 X=2814*SIN(G2)-181*SIN(2*F2)-20*T2*SIN(G2)+12*SIN(2*G2)-10*COS(2*S2-2*G2)+7*COS(3*S2-3*G2) 
450 X=X/3600+MOD(L2,360)-D9 à Y=(12215*SIN(F2)+83*SIN(G2+F2)+83*SIN(G2-F2))/3600 

460 Z2=.72335-.00493*C0S(G2) 

470 GOSUB 730 à X=X+.0084 à GOTO 740 


490 'MARS': GOSUB 230 à BS$='MARS"! 

500 X=38451*SIN(G4)+2238*SIN(2*G4)+181*SIN(3*G4)-5S2*SIN(2*F4)+37*T2*SIN(G4)-22*COS(G4-2*G5) 
510 X=X/3600+L4-D9 à Y=(6603*SIN(F4)+622*SIN(G4-F4)+615*SIN(G4+F4)+64*SIN(2*G4+F4))/3600 
520 Z2=1.53031-.1417*COS(G4)-.0066*COS(2*G4)-.00047*COS(3*G4) 

530 GOSUB 730 à X=X-.0093 à Z=Z-.0021 à GOTO 740 


un ue ue un un un dt due A du de ut de ds CU CS OS US dE A A A A A AU A OR M MS CE UN M CN CU Ce CU UN CU A CN A “mme te He nie mue Ge ne GS AN AS UN CUS CS CUS GUN GUN Œu us eme 
mm mm ne ee ue ee 


550 ‘'JUP': GOSUB 230 à B$=' JUPITER! 

560 X=19934*SIN(G5)+5023*T2+2511+1093*C0OS(2*G5-5*G6)+601*SIN(2*G5)-479*SIN(2*G5-5*G6) 

570 X=X-185*SIN(2*G5-2*G6)+137*SIN(3*G5-5*G6)-131*SIN(G5-2*G6)+79*COS(G5-G6)-76*COS(2*G5 -2*G6) 
580 X=(X-74*T2*COS(G5)+68*T2*SIN(GS)+66*COS(2*G5-3*G6)+63*COS(3*G5-5*G6))/3600+MOD(L5, 360) -D9 
590 Y=(-4692*C0S(G5)+259*SIN(G5)+227-227*COS(2*G5))/3600 
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600 2=5.20883-.25122*C0S(G5)-.00604*C0S(2*G5) 
610 GOSUB 730 à X=X-.0229 à Z2=2-.0022 à GOTO 740 


630 ?SAT': GOSUB 230 à B$=!SATURN! 

640 X=23045*SIN(G6)+5014*T2-2689*CO0S(2*G5-5*G6)+2507+1177*SIN(2*G5-5*G6)-826*COS(2* GS -4*G6) 

650 X=X+802*SIN(2*G6)+425*SIN(GS-2*G6)-229*T2*C0S(G6)-153*COS(2*G5-6*G6) - 142*T2*SIN(GÉ) 

660 X=X-114*C0S(G6)+101*T2*SIN(2*G5-5*G6)-70*COS(2*L6)+67*SINC2*LÉ)+66*SINC2*G5-6*G6) 

670 X=X+60*T2*COS(2*G5-5*G6)+41*SIN(G5-3*G6)+39*SIN(3*G6)+31*SIN(GS-G6)+31*SINC(2*G5-2*G6) 

680 X=(X-29*CO0S(2*G5-3*66))/3600+MOD(L6, 360) -D9 

690 Y=8297*SIN(GÉ)-3346*COS(G6)+462*SIN(2*G6) - 189*COS(2*G6)+185+79*T2*COS(G6)-71*COS(2*G5 -4*G6) 

700 Y=CY+46*SIN(2*G5-6*G6)-45*COS(2*G5-6*G6)+29*SIN(3*G6) )/3600 

710 2=9.55774-.53252*C0S(G6)-.01878*SINC-4*G6)-.01482*C0S(2*G6)+.00817*SIN(G5-G6) 

720 GOSUB 730 à X=X-.0055 à Z=Z-.0064 à GOTO 740 
730 CALL LBRYZX(Z,Y,X,E9) à X=X+X5 @ Y=Y+YS à Z=Z+25 à CALL XYZHAD(X,Z,Y) @ RETURN 
740 A9=MOD(X+H9,360) à DO=Z à END 


a un cs ue co con ce cm came ue cote ce té (it A te A li de (a A (A te, ee, ee ie ee ie ie ie A A (EC I I A SO CS En 
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760 !'SIR': DATA SIRIUS,-16.6722-.0361*(T2-.69),259.0542+.0158*(T2-.69) 


LALSSSSSSSSSSSSSSSESSESSSESSSSSSSSSSETSEZEESEZEZEZ=====-===-======= 


770 'CAN': DATA CANOPUS,-52.6783,264.1854 


780 ‘VEG': DATA VEGA,38.7539,81.0279 


LELLLSSSSSSSSSSSSSTESESSSSITSSSZSSSSZSZSSSSES=E==E=======TZEZ======== 


790 'RIGI': DATA RIGIL KENTAURUS, -60.7086+.0214*(T2-.69),140.63+.2028*(T2-.69) 


800 'BET': DATA BETELGEUSE,7.4028,271.6267 


810 :CAP': DATA CAPELLA,45.9683,281.4008 


= = en eue ue eu eue eue eu + ep œ que mu + ét <S <N AS AN Au ut un Ou Qu ON MN A Œu ŒU Œ MU UN Au NN AN AN ut NS UN A AN AN UN US UN GUN UN AUS GUN GUN OUR OUR OU UN UN EN UE NE ue 
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860 'HAD': DATA HADAR, -60.2244,149.595 


eus eue cs sc ue cu ms 2 C0 de ee Ce te A Ce A 0 0 ee A CS Ce CU CS Au NS ee te ee mm mn ==2=2= 
mm ee ee ee en ee Out us due us Au us Au us ue Cuue ue Me due Me te A din AN AN de A Ne GUN AUS ŒUNS NN GNU ANS CN OS ANS CNE AN CE CE A AU ON AN CO ON + 


870 'ALT': DATA ALTAIR,8.7853+.01*(T2-.69),62.6825-.0153*(T2-.69) 


mue us sus cu cs cum cs cs comm cu cou eue eue ue eut ie Œt A CS de US A A CU UN AU ME MU M MN M UN MU M M M Mu A He M A “nt Me A A Œ AUS CUS GUN GUN OUR GR GUN CU UE UN CN OU Guen 
ne es ne ds de de du du AUS AU dues Cu us us Œuue Ce ue ue cou “et die eut MU ES ANUS GUN AUS GUN AN GONE GONE CO A CE CO CO CON CO CON CO CO ee A A A DNS A CN RS CR CN A 
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900 'SPI': DATA SPICA,-11,159.1108 


910 'POLL': DATA POLLUX,28.1025,244.1446+.0186*(T2-.69) 


920 'ANT': DATA ANTARES,-26.3647,113.1242 


930 'REG': DATA REGULUS,12.1194,208.3192 


940 :FOM': DATA FOMALHAUT, -29.7869,16.015 


950 'DENEB': DATA DENEB,45.1689,49.9067 


SZZSZZZSTZZSZZZZZZZZZSZZSZSZ=SZSZEZZEZEEEE==EE=========Z======Z-====Z===- 


960 'ADH': DATA ADHARA, -28.9289,255.6483 


nn ne dt un ue de ce ct ete tes mé de (ue Ce Cu ct ct ut dt A AU A (UE AS CUS AUS CU (US UN AS UNE CR CU AR MUR AU CU UNE CE ANNE (UN UE UN NN AN UN UN AN UN CN CN CN CNE CN CE CE CNE CU UE Ce 
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1000 'ALI': DATA ALIOTH,56.1278,166.8325 


= = eo © = ee ee = + = + ue ee ee ee ee Se ee _ — _— _ — — = un un ut du me de came ce 


1010 ‘AVI': DATA AVIOR,-59.4094,234.53 


1020 ‘ALNI': DATA ALNILAM,-1.2203,276.34 


OUR CD OUR CR US UD UD AU UE UD EU A ER A CN A CE A A CE A SE AE MUR Ce nm mm mm mm = = =. 
2  ——— ——— 


1030 'ELN': DATA ELNATH,28.5828,278.9175 


0 us sd A A Le A Le OC A A A ie Ce CS CN SN em mm mm === 
me =D ee ee 6 0 ee ee de 0 de ee en = 


1040 'MIA': DATA MIAPLACIDUS, -69.5894,221.7829 


1050 ‘ALK': DATA ALKAID,49.4675,153.42 


en mms ut mt ct um un Cu mn M Au un Ou Œ ŒuS Ou ue Ou ue up eu + ue mu mu uit mn UN Ju ut ut us nt ns un 0 ne ne un un un us ue ue ue ue ue ue ue Cu UE CU CU ER ee 
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1100 'POLA': DATA POLARIS,89.1214,329.3708 


— ut cl D CE CI UE 7 A eu us Ge Ge AR Out MURS (ut ut ul M MUR Gt AR MUR UN ANS AND AN Eu DU Æ N ue nn ue um = = _— es 


1110 ‘PEA‘: DATA PEACOCK, -53.8361,54.1988 


1120 :NUN': DATA NUNKI,-26.3369,76.6642 


1130 'RAS': DATA RASALHAGUE, 12.5811,96.6267 


1140 "ALPHER': DATA ALPHERATZ,28.9194,358.3050 


1150 'ALNA': DATA ALNAIR,-47.1119,28.4283 


1160 :DENEBO': DATA DENEBOLA, 14.7453,183.13+.0158*(T2-.69) 


1170 'DIP': DATA DIPHDA,-18.1564,349.4917 


1210 'SUH': DATA SUHAIL,-43.3069,223.2863 


1220 ‘ALPHEC': DATA ALPHECCA,26.8181,126.6527 


1230 :MENKE': DATA MENKENT,-36.2183-.0114*(T2-.69),148.7875+.0172*(T2-.69) 
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2040 


GIE‘: DATA GIENAH,-17.37,176.4479 


IMENKA': DATA MENKAR,3.9692,314.8358 


tZUB': DATA ZUBEN-UBI,-15.9142,137.71 


ESS ss = ses less ssessssssssesessesssssesssssessssssss 

‘ACA!: DATA ACAMAR, -40.4281,314.8358 

ON ERROR GOTO 1360 à A=A-10 

ON A RESTORE 760,770,780,790,800,810,820,830,840,850,860,870,880,890, 900 

GOTO 1435 

ON ERROR GOTO 1380 à A=A-15 

ON À RESTORE 910,920,930,940,950,960,970,980,990, 1000, 1010,1020,1030, 1040, 1050 
GOTO 1435 

ON ERROR GOTO 1400 à A=A-15 

ON À RESTORE 1060,1070,1080,1090,1100,1110,1120,1130,1140,1150,1160,1170, 1180, 1190, 1200 
GOTO 1435 

ON ERROR GOTO 1420 à A=A-15 

ON A RESTORE 1210,1220,1230,1240,1250,1260, 1270, 1280,1290,1300,1310,1320,1330 
GOTO 1435 

ON ERROR GOTO 1480 

RESTORE C$ 4 OFF ERROR 

READ B$,D,H à SFLAG 10 

F=(H9-15*T)/.985647-T/24 
AQ=H+(T2-.69)*(SINCHD*TAN(D)-2.3)/1.8-SINCM5-H)*TAN(D)/426+SINC(M5)/208.77 
A9=MOD(A9+H9+COS(H-F)/COS(D)/171.4,360) 
DO=D+(T2-.69)*C0S(H)/1.8-COS(M5-H)/426+SIN(D)*SINCH-F)/171.4 à END 

IF 121=C$ THEN DISP 'Search aborted' à DESTROY A9,D0 à B$='...! à END 

1F LEN(CS)<=2 THEN DISP No ‘:A$: à INPUT ! / Correct name ‘,'2':A$ à GOTO 25 
C$=CS[1,LEN(CS)-1] à ON ERROR GOTO 1420 à GOTO C$ 


SUB XYZHAD(X,Y,2Z) 
F=SQR(X"2+Y"2) à G=ANGLECX,Y) à H=SQR(F"2+Z"2) Q Y=ANGLE(F,Z) à X=360-G à Z=0 


HEZZTZZIZIZIZEZSTT EEE TTs TETE ETS Tssemmsssssrsssszz 
SUB LBRYZX(X,Y,2,T) à A=X*COS(Y)*COS(Z) à B=X*(COS(Y)*SINCT)*SIN(Z)+SIN(Y)*COS(T)) 
C=X*(COS(Y)*COS(T)*SIN(Z)-SINCY)*SIN(T)) à Z=A à Y=B à X=C 


Re ee He he ee ee ee ee ee ee ee he fe eee eee fe fee ee ee ee ee eee re re ee re ee le ee eee ee er ee ee ee ee er ee eh ee Re 


LES TABLES DE LA LOIS (MATHROM) 


mm 


Tables de STUDENT,KI2,FISHER-SNEDECOR 


SUB TPROBA(N,X,Q) ! unilatéral, Loi de STUDENT: n,x-->q 

IF X<0 THEN BEEP 999 à DISP !ERR: X < O !1' @ PAUSE à GOTO 65 
RADIANS @ Y=X/SQR(N) à T=ATAN(Y) 

IF N=1 THEN B=T*2/PI à GOTO 60 

S=COS(T)"2 à M=2*INT(N/2) Q IF M=N THEN 45 

B=COS(T) à S=B*B à V=B à IF N=3 THEN 40 

FOR 1=2 TO N-3 STEP 2 Q V=V*S*I/(1+1) à B=B+V à NEXT I 
B=B*SIN(T) à B=(B+T)*2/PI à GOTO 60 

S=COS(T)"2 à B=1 à V=1 à IF N=2 THEN 55 
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50 FOR 1=1 TO N-3 STEP 2 @ V=V*S*]/(1+1) à B=B+V à NEXT 1! 
55 B=B*SIN(T) 

60 Q=1-((1+B)/2) 

65 END SUB 


um — — 22 === — ——_— 0 Gun Cu M Es US M Cu Cu Cu ee 2 
CSSS LSSLSSSSSSTSESSSSESSTISEITSISESSSTSTZERSETEE EEE =E===== 


- Loi du KI2: n,x-->q sle flag(60) sert à enlever Le bug de L30 


205 SUB KI2PROBA(N,X,Q) ! valable ssi Q>,5 

207 1F X<0 THEN BEEP 999 à DISP ‘ERR: X < O 11! à PAUSE à GOTO 260 
210 O=N/2 à G=1 à M=INT(O) 

215 IF N=M*2 THEN GOTO 235 

220 1F N=1 THEN GOTO 230 

225 FOR 1=1 TO 2*M-1 STEP 2 Q G=G*1/2 à NEXT I 

230 G=G*SQR(PI) à GOTO 2845 

235 IF N=2 THEN GOTO 245 

240 FOR 1=1 TO M-1 à G=G*I à NEXT 1! 

245 A=EXP(-X/2) à F=(X/2)"0 à F=F*A/(0*G) à E=1 à P=1 à 1=2 

250 E=E*X/(N+1) à P=P+E à IF E*F>.00000001 THEN !1=1+2 à GOTO 250 
255 Q=1-(P*F) à IF Q>=.999 AND NOT FLAG(60) THEN Q=.000000001 
260 END SUB 


- Loi de FISHER-SNEDECOR: n,m,f-->p 


LL LSSSSSLSSSLLSLLLLSESSSTTSITTTTSTTTTTTTT TT = Trssssssssssssses 

405 SUB FPROBACN,M,F,P) à IF N=1 THEN CALL TPROBA(M,SQR(F),P) à P=2*P Q GOTO 430 ELSE E=.0001 
419 DELAY 0,0 à DISP ‘Proba...!' à DEF FNGCN,M,T)=T"(N/2-1)*(M+N*T)"C-CN+M)/2) 

415 A=GAMMAC(N+M)/2)*N"(CN/2)*M"CM/2)/GAMMACN/2)/GAMMA(M/2) 

420 B=INTEGRAL(O,F,E,FNG(N,M,IVAR)) 

425 P=A*B Q P=1-P 

430 END SUB 


- = ——— 
SSSSSSSSSSSSELSSSSSSTESSESESESSSSSZSTIZLZSE=Z=Z=Zz================Z===- 


- table de La loi de STUDENT: n,q-->x 


505 SUB PROBAT(N,Q,X) ! O<Q<.5 
507 IF Q>.5 OR Q<0 THEN DISP 'ERR: pas bon Q' à BEEP 1000 à PAUSE à GOTO 525 


us cn ce come ce cat conte come ut de ce ce de du du ue du due Cu Cu Ce (ae ce te te tie nt te dé té M M M dé M RE A A M A A CO CC “0 CU So CC ee A me 
CSSS mm me ee de due Me AUS US AUS AU UN AUS AU AU QU AU UN GE UN M CN ON CN A ON AND AI ANR ANR ŒS Œ US CN GR CU US GUN QUE QUE QU ŒS ŒS ŒUS ŒUS US Œe Œue eu 


en 0 un us us us cu dan du ue Cu ee Me M Me ue Me ie M de A A A A A A UE A CU CP CO CR COUR CO CE “Ce A ANS A CS A EU CU AS US AU CUS AU CE CE AE A A A EU UE Eu un mn 
== me 2e 20 2 Cum OU Cu Cu CU Œue (eute (ue (ie Ale (NU A NS CS AUS A A OS AN A CO CON UE CON CN AE CON A CRU CN  e A ne ON ANR CNE CON ANR ÆN A A © NS 0 


520 A=FNT(Q) à X=N 
525 END SUB 


an cu come me em comte ce ce con de dé ce dé (a <a du sm can su M tent M Me CN LR dE LR A A A CS CR CR CO CO AR CA ee (ce Ce Ce A CS US CS nm == 
TT TS See RS D ue A UN AUS AUS US ŒUS S QUE US ŒUS OUR QUE AN US GUN UE EU QU CU Se NS NS ANS US OS RS Sn ns 


605 SUB PROBAKI2(N,Q,Y) à SFLAG 60 à SFLAG 10 à E=.01 

607 IF Q>=1 OR Q<=0 THEN DISP ‘ERR: pas bon Q' à BEEP 1000 à PAUSE à GOTO 705 
610 IF N<12 AND Q>.2 OR N<5 THEN E=.00001 

615 IF N<5 THEN S=0 à T=1 @ GOTO 660 

620 IF .075>Q AND Q>=.035 THEN S=4.1+1.3*N Q T=4.5+1.4*N @ GOTO 660 
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625 





IF .035>Q AND Q>=.015 THEN S=6+1.3*N @ T=7+1.5*N @ GOTO 660 


630 1F .015>Q AND Q>=.008 THEN S=7+1.4*N à T=8+1.6*N à GOTO 660 
635 1F .15>Q AND Q>=.075 THEN S=2.5+1.2*N @ T=3+1.3*N @ GOTO 660 
640 IF .008>Q AND Q>=.0008 THEN S=11+1.5*N @ T=14+1.6*N à GOTO 660 
645 IF .4>Q AND Q>=.15 THEN S=1.6+.9*N à T=2+1.2*N Q GOTO 660 

650 IF .7>Q AND Q>=.4 THEN S=-.6+N à T=-1.6+.9*N à GOTO 660 

655 1F 1>Q AND Q>=.7 THEN S=-2.5+.5*N à T=-,.63+N 

660 W=FNK(N,Q) à CFLAG 60 ! Le W est pour vous faire parler 
SZZZZEIZSSZZESSLIZZIELZEILEZEZSESTTSZESTES TESTS SSSSSEES==S========= 

665 DEF FNKÇ(N,Q) 

670 IF FLAG(10) THEN FNK=FNROOT(S,T,FNK1CFVAR,N)-Q) ELSE FNK=FVAR 
675 END DEF 
STSTSITTTTTTT TT TT TT TTTTTTT TT TS TT TT TT TTETT TT TTTrrrrzrr2srzz 

680 DEF FNK1(X,N) 

685 IF NOT FLAG(10) THEN FNK1=FVAR @ GOTO 700 

690 1F ABS(Y-FVAR)<E THEN Y=FVAR @ CFLAG 10 4 GOTO 700 ELSE Y=FVAR 
695 CALL KIZPROBAC(N),(X),P) @ FNK1=P 

700 END DEF 

705 END SUB 
SCSI STZZZEISTITTETTEESESTSTESSSSTSTSTTEESESSSSSSS=sSs-sssssssssss 

- table de FISHER-SNEDECORQ n,m,p--->y 

ETSSSSSSESTSSTTSITTTSTTTTTTTTTTTTTTE TSI SLT S=S==S=---S. 

905 SUB PROBAF(N,M,P,Y) 

906 IF P>=1 OR P<=0 THEN BEEP 999 à DISP !ERR: pas bon P' @Q PAUSE @Q GOTO 950 
908 SFLAG 10 à A=FNF2CN,M,P) 

910 DEF FNF2CN,M,P) 

915 IF FLAG(10) THEN FNF2=FNROOT(1,2,FNF1CFVAR,N,M)-P) ELSE FNF2=FVAR 
920 END DEF 

925 DEF FNF1(X,N,M) 

930 1F NOT FLAG(10) THEN FNF1=FVAR @ GOTO 945 

935 IF ABS(Y-FVAR)<.01 THEN Y=FVAR à CFLAG 10 à GOTO 945 ELSE Y=FVAR 
940 CALL FPROBAC(N),(M),X,Q) à FNF1=Q 

945 END DEF 

950 END SUB 


KKKRRRERERERÉRÉRERÉRRRRERRERRERERERRRRRRRRRRRREERERRERERMERAERRRRRRHRRERRÉRRÉRERRRRÉERRÉRMMRRRMRRRÉ 


FORMAT HPAF Ç(MATHROM + KEYWAIT) 


5 


SUB AIDEHPAF 

pgm d'aide au formattage HPAF 
sauvegarde Q chargement au format HPAF 
A est le tableau, apriori au DIM 15x12 
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PS 


100 
110 
120 
125 


140 
150 


500 
510 
520 
530 
540 


709 
710 
720 
800 


N$() est Le nom des # colonnes (optionnel)}(15 par ex.) 

si N$(1)="" Les colonnes sont inommables 

A et Les noms N$ sont sauvegardés par Le pgm SAVEHPAF dans un fichier-data F$ 
Si R,C=0,0 LOADHPAF formatte À !! 

Si R,C#0,0 LOADHPAF complète La matrice,déja existante... 

..-par Le contenu du fichier-data F$ 

LEX KEYWAIT, sub-pgm OUINON (JPC n.27 ou 28), module MATH 


construction du tableau 

DESTROY ALL @ STD à OPTION BASE 1 

INPUT “Nbres de Lign, col.? ":R,C à DIM ACR,C),N$(C) @ MAT INPUT A 
FOR 1=1 TO C à DISP "Nom':1:"jème colonne": à INPUT N$(I) @ IF N$(1)='! THEN 140 
NEXT 1! 

sauvegarde 

INPUT "Nom du fich.sauveur? ":F$ 

CALL SAVEHPAF(AC,),N$(),F$) ! c'est sauvé 

chargement en tableau d'un fichier hpaf 

DESTROY ALL à INTEGER R,C,R9,C9 

INPUT "DIM apriori du tabl?":R9,C9 à DIM AC1,R9*C9) ,NSCR9*C9) 

INPUT "Nom du fich.chargeur ":F$ 

CALL LOADHPAF(R,C,A(C,),NS(),F$) 

DIM ACR,C),N$SCC) ! et voilà: on a tout: R,C,ACrxc) ,N$() 

DIM ACR,C),N$(r) ! si Les Lignes sont nommées 

vérification: 

DELAY 8 à DISP MR,C= "-R;:C Q MAT DISP A; à IF NOT LEN(N$S(1)) THEN 720 
FOR 1=1 TO C à DISP N$(I) à NEXT I ! ou i=1 à R 

DELAY 0,0 

END SUB 


SESSSSSSSSSSESSSSSSSSSSESESESES=E=========-==--======S===-- 

copie write de HEWLETT-PACARD par Michel MWEIL 

flag 22 armé:les Lignes du tableau À ont un nom N$ (sub-SAVE) 

flag 22 desarmé: pas de nom pour ces lignes (sub-SAVE) 

flag 21 armé: il n'y a pas de tabl.préexistant à l'enregistrement des données 
flag 21 desarmé: on veut complèter un tableau par des données d'un fichier-data. 
LEX KEYWAIT et ss-pgm OUINON utilisés (JPC n° 27 ou 28) 

module MATH utile (la version sans module est à votre disposition) 

OPTION BASE 1 

A: RxC-matrice : N$: C-vecteur ;:F$: fich.-data 


SUB SAVEHPAF(A(,),N$C),F$) à R=UBND(A,1) à C=UBND(A,2) 

IF LENC(N$(1)) THEN B=R+3 à D=C 

FS=UPRCS(F$S) à I=LEN(F$S) à J=POS(F$,":1) 

IF J=1 OR NOT I OR POS(F$," ") THEN DISP “Fich. non valable! à GOTO 2100 
DISP "Sauvegarde..." à ON ERROR GOTO 1960 

CREATE DATA F$,3+R+D,C*8 à ASSIGN #9 TO F$ Q OFF ERROR àQ GOTO 2020 

OFF ERROR à IF ERRN#59 AND ERRN#255030 THEN 2010 

Q$="écrase fich.-dat(O0/N)2" à CALL OUINON(Q$,Q) à 1F NOT Q THEN 2100 
DISP "Sauvegarde.." à PURGE F$ 

ON ERROR GOTO 2010 

GOTO 1950 

OFF ERROR à DISP ERRMS @ GOTO 2100 

IF MEM<300 AND NOT J THEN PURGE F$ Q DISP “manque de Mémoire!" @ GOTO 2100 
Q$S="HPAFN Q FOR 1=1 TO C Q Q$=QS&'N" Q NEXT I 

PRINT #9,0;:0$ 

PRINT #9,1:R à PRINT #9,2;B ! B: bloc-descriptif (noms des colonnes) 

FOR 1=1 TO R àQ RESTORE #9,1+2 

FOR J=1 TO C Q PRINT #9;:A(I,J) à NEXT J à NEXT I 

IF NOT B THEN 2100 


2090 FOR 1=1 TO C @ PRINT #9,B+I1-1;:N$(I1) à NEXT I 
2100 ASSIGN #9 TO * à END SUB 


2130 SUB LOADHPAF(R,C,A(,),N$SC),F$) à CFLAG 21 à ASSIGN #9 TO F$ 

2140 LINPUT "DIM.tabl .prédonné?","0,0":R$ à W=POS(RS,',') à INTEGER T(20) 

2150 R=VAL(RS[1,W-11) @ C=VALÇ(RS[W+1]) 

2160 1F NOT R AND NOT C THEN SFLAG 21 à GOTO 2190 

2170 W$="Suppress.données(0/N)?" @ CALL OUINON(WS,W) 

2180 IF W THEN MAT A=ZERO à R=0 à C=0 à SFLAG 21 

2190 J=POS(F$,":") @ IF J=1 OR POS(F$," ") THEN DISP “Fichier inadapté" à GOTO ‘FIN! 
2200 DISP "ça charge.." 

2210 ON ERROR GOTO 2220 à READ #9,0;:T$ à GOTO 2230 

2220 OFF ERROR à DISP "Fich.non formatté HPAF'" Q GOTO ‘FIN! 

2230 1F T$(1,4]#"HPAF" THEN 2220 

2240 T$=T$[5] à C2=LEN(TS) 

2250 C3=0 à FOR 1=1 TO C2 à IF T$[I1,1]='N' THEN T(1)=1 Q C3=C3+1 Q GOTO 2270 
2260 IF T$[I,1]1='S' THEN T(1)=0 ELSE 2220 

2270 NEXT I & IF NOT FLAG(21) AND C3#C THEN DISP M"ERR: Colonnes #!! à GOTO FIN! 
2280 READ #9,1:R1 @ R=R+R1 Q C=C3 Q IF MEM-R1*C*8<300 THEN 2300 

2290 ON ERROR GOTO 2220 à GOTO 2320 ° 

2300 OFF ERROR à DISP "trop de données!!!" @q PAUSE @ GOTO ‘FIN! 

2310 IF NOT R1 THEN MAT A=ZERO @ R=0 à C=0 ELSE R=R-R1 

2320 OFF ERROR à READ #9,2:B 

2330 X=3 à FOR I=R-R1+1 TO R Q C1=1 à READ #9,X à FOR J=1 TO C2 

2340 IF T(J) THEN READ #9:A(1,(1-1)*C+C1) Q C1=C1+1 ELSE IF NOT B THEN READ #9:N$(1) 
2350 NEXT J Q X=X+1 à NEXT I 

2360 IF NOT B THEN FIN! 

2370 ON ERROR GOTO FIN! 

2380 FOR 1=1 TO C3 à READ #9,B+I1-1:N$(1) @ NEXT I 


2390 !'FIN': ASSIGN #9 TO * à END SUB 
- fct réponse 


De ee ee ne ee ee ee ne Se Se Ce  —— ——— 
Ce mm mm mm mm mm mm mm mm mm mm mm 


8010 SUB OUINON(QS,Q) 
8020 DISP Q$ à I=POS('"NOFC12" ,UPRCS(KEYWAIT$(1,11))-1 @ 1F I<O THEN 8020 
8030 Q=MOD(I1,2) à END SUB 


eee ee ee ee eh ee ee ee ee ee he ee ee ee eee ee ee ee ee he he he ee he he eee A A A AAA ee 


UN CALENDRIER POUR LES LECTEURS (EDLEX + KEYWAIT) 


Calendrier 

10 DESTROY ALL à T5=TIME Q FOR 1=1 TO 3 à PUT ‘#48! à NEXT I 

20 STD à INPUT ‘'année?= !,11986!:A 

30 CALL DFETES(A) ! (Calcul des fêtes de l'année.) 

40 ASSIGN #1 TO FETES à@ READ #1,0;F$ 

50 CALL LUNE(A) ! (Caicul des phases de La lunes.) 

60 ASSIGN #2 TO LUNES à READ #2,0:W$ Q DISP ‘Tracé du calendrier! à BEEP 
70 FOR M=1 TO 12 

80 RESTORE 510 à FOR 1=1 TO M 9 READ M$ à NEXT I ! (Nombre de jours dans le mois) 
90 RESTORE 530 Q FOR J=1 TO 1-1 à READ P à NEXT J 

100 J1=MOD(FP(A/100)*100+FP(A/100)*100 DIV 4+P+1,7) 

110 RESTORE 500 à FOR 1=0 TO J1 à READ J1$ Q NEXT I! ! (Nom du 1 Janvier) 
120 RESTORE 520 Q FOR 1=1 TO M @ READ N @ NEXT I 
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00 


130 IF N#0 THEN 150 ELSE IF NOT MOD(A,4) THEN N=29 ELSE N=28 

140 IF NOT MOD(A,100) AND MOD(A,400) THEN N=28 

150 M$=MS&'  '&ESTRS(A) à ENDLINE CHR$(13) , 

160 RESTORE 10 @ CONTROL ON à PRINTER IS :%35 @ CLEAR à PRINT CHR$(27)&"&k3s1W" 

170 PRINT CHR$S(27)&"&l8d1164f96P" à ENDLINE 

180 PRINT TAB((30-LEN(MS)) DIV 2);M$ 

190 PRINT '======2============2===2===22=! à ENDLINE CHR$(13) @ PRINT CHR$S(27)&'&k2S" 
200 RESTORE 500 à FOR 1=1 TO J1 Q READ J$ à NEXT I 

210 FOR 1=1 TO N à READ J$ à 1F J$='Samedi' THEN RESTORE 500 

220 ON ERROR GOTO 230 à READ #1,0;:F$ à IF VAL(F$[1,4]1)#100*M+1 THEN DESTROY F$ @ GOTO 230 
225 READ #1,1:F1$ à 1F VAL(F$[1,4])=VAL(F1$11,41) THEN F$=F$&','&F1$(5] ELSE DESTROY F1$ 
230 ON ERROR GOTO 240 à READ #2,0;:W$ @ IF VAL(WS(1,21)#I THEN DESTROY W$ 

240 OFF ERROR @ L=11-LEN(J$)-LENC(STR$(I)) 

250 IF J$=' DIMANCHE! THEN PRINT CHR$(27)&"(s1B" ELSE PRINT CHR$(27)&"(s0B" 

260 1F F$#!! THEN PRINT CHR$(27)&"(s1B" @ JS$S=UPRCS(JS$) 

265 ENDLINE CHR$(13)&CHR$(27)&'="! 

270 PRINT USING “,9A,2D,' |',29A,12A";:J$,1,FS[5]1,W$[(4] à PRINT CHR$(27)&"(s0B" 

280 1F F$=!'! THEN 290 ELSE DESTROY F$ à DELETE #1,0 

285 1F F1$='! THEN 290 ELSE DESTROY F1$ Q DELETE #1,0 

290 1F W$='! THEN 300 ELSE DESTROY W$ à DELETE #2,0 

MOD PRINT FENTE ARR EN MER ANSAR ERNEST AR AR ER SRANSAEAT ART ANEEN ARS , 

310 NEXT 1 à FOR 1=I TO 31 Q PRINT ! ! Q PRINT ‘ ‘ @ NEXT I @ NEXT M 

320 PURGE LUNES à PURGE FETES à T5=TIME-T5 @ DISP T5 @ PAUSE @ END ALL 


LESSSSSSSSSSSESSSSSSISSSLISZSEZSTTTTTTTTTTSTTSSEZZSE=Z=S=ZzS=ZzzZz=ZzzzZzz= 

500 DATA DIMANCHE, Lundi ,Mardi ,Mercredi, Jeudi ,Vendredi, Samedi 

510 DATA Janvier ,Février,Mars,Avril,Mai,Juin,Juillet,Août, Septembre,Octobre,Novembre,Décembre 
520 DATA 31,0,31,30,31,30,31,31,30,31,30,31 

530 DATA 0,3,3,6,1,4,6,2,5,0,3,5 


SISTSSSSSSSSSSSESSIISIZSSSSSSSSSSSSSSSSSSSSSSELSISSIZISISSSESSEEEEES 
2000 SUB DFETES(A) à BEEP Q DISP ‘FETES! Q CREATE TEXT FETES Q ASSIGN #1 TO FETES @ ENDLINE 
- (Fêtes fixes) 
2020 PRINT #1;"0101(Jour de l'an)" 
2030 PRINT #1;:"0501(Fête du travail)" 
2040 PRINT #1;:"0508(Victoire 1945)" 
2050 PRINT #1;:"0714(Fête nationale)" 
2060 PRINT #1;:"0815(Assomption)" 
2070 PRINT #1:"1101(Toussaint)" 
2080 PRINT #1:"1111(Victoire 1918)" 
2090 PRINT #1;:1225(Noël)" 
- (Fêtes mobiles) 
2100 CALL PAQUES(A,N1,P1) 
2110 P$S='O'ESTRS(N1) à IF P1<10 THEN P$=P$S&'0! 
2120 INSERT #1,1:PS&STRS(P1)&' (Päques)! 
2130 INSERT #1,2: PS&STRS(P1+1) 
2140 Z$=DATES à READ #1,1;:P$ Q SETDATE '00/1:&P$(1,2]8'/'&P$(3,4] 
2150 G=DATE+1-7*7 Q P=DATE+49 à A1=P-10 
2160 SETDATE G à INSERT #1,1;:DATES[4,5)]&DATE$(71&'(Mardi gras)! 
2170 SETDATE A1 à INSERT #1,6:DATES[(4,5)]8&DATES(7]1&' (Ascension)! 
2180 SETDATE P à INSERT #1,7:DATES[(4,5]&DATES[(7]1&' (Pentecôte)! 
2190 SETDATE DATE+1 a INSERT #1,8:DATES(4,5]8&DATES(7] @ SETDATE Z$ d END SUB 


nn us ct cum ct ce ce me me cn mu se nt st dt ds cu due due ue ue Cu ue ON ne de (ut Ole Mt le ut de due ue due de dut. A UN GUN GUN CE CN UN CU ON CE CU CE OU A Ou A AS SN CS NS 
TES ee ee ue en Un OS QU QU ue OO CN ue OC ue CU A Ou Ne ne A ue A Ne US AS US CUS ŒUS US ŒUS OU CU CN GO UN GUN UE CN 


3000 SUB LUNECA) à CREATE TEXT LUNES à ASSIGN #2 TO LUNES @ ENDLINE 

3010 FOR M=1 TO 12 à BEEP à DISP 'Lunes mois n'&STRS(M) à FOR J=3 TO 28 STEP 5 à CFLAG 5,7 
3020 CALL LUNES(A,M,J,W$) à IF W2$=W$ THEN 3040 

3030 PRINT #2:W$ à W2$=US 

3040 NEXT J à NEXT M à END SUB 
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SSL LSSSESSSITESTTTTETTTTTSSSSTSSSESTESESESES=Z=====-==-== 

4000 SUB PAQUES(A,N1,P1) ! (Calcul de La date de Pâques) 

4010 R1=RMD(A,19) à Q1=A DIV 100 à R2=RMD(A,100) à Q2=Q1 DIV 4 à R3=RMD(Q1,4) 
4020 Q3=(Q1+8) DIV 25 à Q4=(Q1-Q3+1) DIV 3 Q R&=RMD(19*R1+Q1-Q2-Q4+15,30) 
4030 Q5=R2 DIV 4 Q R5=RMD(R2,4) Q R6=RMD(32+2*R3+2*Q5-R4-R5,7) 

4040 Q6=(R1+11*R4+22*R6) DIV 451 

4050 A1=R4+R6-7*Q6+114 Q N1=A1 DIV 31 Q P1=RMD(A1,31)+1 à END SUB 


mm mm mem me ne ee ee ee ee ee ee ee me ne ne ee St US US de US US me ut me CS nt CS CU Ce UC Ou Ou OM ue Ce US Ce SO Ou Ce ee 
= un us Ou ut ue un UN NO ŒN UN 2 Æ0N 0 un Ou OO ŒN M Ou OU MN CN NO CU GUN OS ON Ne UN ON 0 M NN M nt me due ut ut A OU UN ut UN US AS AUS US AU On 8 ee 


5000 SUB LUNES(A,M,J,W$) 
5010 AS=DATES à D$=STR$(A)&'/! à IF M<10 THEN D$=D$&'0! 
5020 D$=D$S&STRS(M)&'/! à IF J<10 THEN D$=D$&'0! 
5030 SETDATE D$&STR$S(J) 
5040 A2=A+RMD(DATE, 1000)/360 à SETDATE A$ 
5050 T=A2/100-19 à K=FNR(1236.85*T,4) à DEGREES 
5060 K2=4*FP(K) à IF K2=0 THEN SFLAG 7 à GOTO 5100 
5070 IF K2=1 THEN 5100 
5080 IF K2=2 THEN SFLAG 5 à GOTO 5100 
5090 IF K2=3 THEN SFLAG 5,7 
5100 J2=2415020.75933+29.53058868*K+.0001178*T"2-.000000155*T"3 
5110 J2=J2+.00033*SIN(166.56+132.87*T-.009173*T"2) 
5120 M1=RMD(359.2242+29.10535608*K-.0000333*T"2-.00000347*T"3,360) 
5130 M2=RMD(306.0253+385.81691806*K+.0107306*T"2+.00001236*T"3,360) 
5140 F=RMD(21.2964+390.67050646*K-.0016528*T"2-.00000239*T"3,360) 
5150 IF MOD(FLAG(S)+FLAG(7),2) THEN 5230 ! (Premier et Dernier quartier) 
5160 C=(.1721-.0004*T)*SIN(M1)+.0021*SIN(2*M1)-.628*SIN(M2)+.0089*SIN(2*M2)-.0004*SIN(3*M2) 
5170 C=C+.0079*SIN(2*F)-.0119*SIN(M1+M2)-.0047*SIN(M1-M2)+.0003*SIN(2*F+M1)-.0004*SIN(2*F-M1) 
5180 C=C-.0006*SIN(2*F+M2)+.0021*SINC(2*F-M2)+.0003*SIN(M1+2*M2)+.0004*SIN(M1-2*M2) 
5190 C=C-.0003*SIN(2*M1+M2) Q C1=.0028-.0004*COS(M1)+.0003*COS(M2) 
5200 IF FLAG(7) THEN 5220 
5210 C=C+C1 à L$='PQ' à GOTO 9000 ! (Premier quartier) 
5220 C=C-C1 à L$='DQ! à GOTO 9000 ! (Dernier quartier) 
5230 1F FLAG(5) THEN L$='PL' ELSE L$=!'NL'! ! (Nouvelle et pleine lune) 
5240 C=(.1734-.000393*T)*SIN(M1)+.0021*SIN(2*M1)-.4068*SIN(M2)+.0161*SINC2*M2)-.0004*SIN(3*M2) 
5250 C=C+.0104*SIN(2*F)-.0051*SIN(M1+M2)-.0074*SIN(M1-M2)+.0004*SIN(C2*F+M1)-.0004*SIN(2*F-M1) 
5260 C=C-.0006*SIN(2*F+M2)+.001*SIN(2*F-M2)+.0005*SIN(M1+2*M2) 
9000 J2=J2+C ! (Jour julien réel) 
- (Traduction du jour julien en date et heure) 
9020 J2=J2+.5 à Z=INT(J2) à F=FP(J2) 
9030 1F Z>=2299161 THEN Y=(Z-1867216.25) DIV 36524.25 à Z=Z+1+Y-Y DIV 4 
9040 B=Z+1524 9 C=(B-122.1) DIV 365.25 à D=INT(365.25*C) à E=(B-D) DIV 30.6001 
9050 W=B-D-INT(30.6001*E)+F ! (Jour du mois, avec décimales) 
9060 IF E>13.5 THEN E=E-13 ELSE E=E-1 ! (Mois) 
9070 IF E>2.5 THEN C=C-4716 ELSE C=C-4715 ! (Année) 
9080 W1=24*FP(W) Q W2=60*FP(W1) à W3=60*FP(W2) ! (Heures, minutes, secondes.) 
9090 IF W<10 THEN W$='0! ELSE W$=!! 
9100 WS=WSESTREÉ(INT(W))&'/'ELSE&' à ESTRECINT(WI))&'h! 
9110 IF W2<10 THEN W$=W$&'0! 
9120 WS=WSESTREC(INT(W2))&'mn' 


9130 DEF FNR(X,N) @ FNR=IP(X*N+.5)/N Q END DEF ! (Fonction d'arrondi.) 
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HP71 FORTH-ASSEMBLEUR 


PIERRE DAVID 
ALAIN HERREMAN 
ALAIN HERREMAN 
STEPHANE BARIZIEN, 
PIERRE DAVID, 

ET MICHEL MARTINET 
MICHEL MARTINET 
JANICK TAILLANDIER 


JEAN-FRANCOIS GARNIER 


BREAK (FORTH) 


SORT (FORTH) 


CHAMPS ASSEMBLEUR 
ASSEMBLEUR ET MEMOIRE DE MASSE 
L'ORDRE EXIT (FOR STEP EXIT NEXT) 


LEX PPOLL ET DEMANDE DE SERVICE 


LE DEBUGGER FORTH 
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DES BOGUES, DES BOGUES 1! 


Ca y est, le voilà ! 


Depuis Le temps qu'on l'attendait ! IL fallait 
bien qu'il arrive un jour ! Tous les fous de 
l'assembleur vont pouvoir se régaler. Ils vont 
connaître Le plaisir suprême : savoir comment 
sont vraiment Les registres 1! Plus de 
suppositions hasardeuses sur Le contenu de tel 
ou tel octet. Et en plus, ils vont pouvoir 
suivre à La trace tous leurs petits (ou grands) 
programmes... Les veinards ! 


HISTORIQUE 


Tout à commencé par ce mot clé "DEBUG" dans la 
ROM Forth/Assembleur (le machin). Quoi de plus 
irritant que de savoir que Ca a failli exister ? 


Les idées fleurissaient, mais aucune 
réalisation ne voyait Le jour. Et puis est 
arrivé "User", La revue de PPC (CHHU) Danemark. 
Et dedans, un débogueur de quelques 900 octets, 
tout en assembleur ! Wouah ! 


Seulement, voilà : après s'en être un peu 
servi, Les restrictions apparurent. En effet, la 
seule chose possible était de visualiser Les 
registres. En dehors, point de salut. 


Alors, je pris mon 71 dans une main, mes IDS 
dans l'autre, et je partis en quête d'un 
débogueur plus utilisable. 

L'avantage de l'assembleur est la rapidité. 
Soit. Mais l'inconvénient, c'est qu'on est 
prisonnier du programme. Et à moins de faire un 
superbe gros bout d'assembleur, le problème 
n'est toujours pas résolu ! 

Alors, il faudrait le faire en langage évolué 7? 
Oui. En Basic ? Heu... non. Basic est un 
horrible destructeur de Math-Stack, d'AVMEMS et 
autres pointeurs  rocambolesques. Et bien 
_ d'autres problèmes encore. 


IL n'y a donc pas de solution ? Si. J'ai nommé 
Forth. 


Les avantages de Forth sont nombreux. D'abord, 





et à égalité en tête, nous trouvons : 
- Forthram est à une adresse fixe, et 
- Forth n'écrase pas tous Les pointeurs ! 


Les autres avantages sont, pêle-méêle . 
rapidité, compacité, modularité, langage évolué... 


PRINCIPE 
Accrochez vos ceintures ! 


Vous voulez voir Le contenu de vos registres et 
l'état de La mémoire à un point donné du 
programme. Simple, vous insérez GOSBVL #2F9DF à 
ce point, vous assemblez et vous lancez ! 


En #2F9DF se situe La fin de la Reserved Ram. 
Sept octets sont nécessaires pour réaliser un 
GOVLNG dans La  Forthram. Là, un bout 
d'assembleur sauve Les registres et quelques 
bouts de mémoire (ce peut être utile), et donne 
le contrôle à un mot  (QUIT ou CONTROLE 
EXECUTION), qui se charge d'arrêter La machine. 
Dorénavant, vous avez La main, vous pouvez faire 
ce que bon vous semble : afficher les registres, 
visualiser des zones mémoire, modifier Le 
contenu de ce qui vous passe par La tête, y 
compris et surtout Les registres ! Vous êtes le 
seul maître à bord après Le HP71... 


UTILISATION 


Insérez vos points d'arrêt dans votre fichier 
source. Ceci se fait par GOSBVL #2F9DF. 


Assemblez. Tant que vous êtes en Forth, faites 
DEBOG. Une seule fois par Memory Lost (la 
reserved ram n'est modifiée que dans ce cas). 


Mettez 1 dans CONTROLE-EXECUTION, et 1 dans 
PAS, éventuellement Le nom de votre fichier dans 
La variable FICHIER. 


Sortez de Forth (ou restez-y}) et exécutez votre 
fonction, programme binaire (ou mot Forth). Les 
registres s'affichent : vous êtes sous contrôle 
du débogueur. 


Là, faites ce qu'il vous plait de faire. 
Pour Le retour à votre programme assembleur, 


jusqu'au prochain point d'arrêt (ou jusqu'à la 
fin), tapez RETOUR. 


PP 


Voilà. Simple, non ? 


NOTES 
Un certain nombre de choses sont à savoir. 


Le programme est prévu pour être utilisé avec 
une interface vidéo. Si vous ne disposez que 
d'une Ligne d'affichage, vous êtes vivement 
invités à modifier .REG et Le message d'invite à 
votre gré. 


A, B, C, D, D1 et DO ne représentent plus des 
nombres hexa, mais des adresses. Si vous 
travaillez en hexa (ce que je crois), vous aurez 
intêret à insérer des 0 en tête (le chiffre C 
devient 0C). 


Vous pouvez (devez) modifier ce débogueur, et 
faire part aux autres utilisateurs des 
modifications. Forth est une boule d'argile que 
chacun peut modeler à sa guise. Ne l'oubliez 
jamais. 


Ce débogueur mange une partie de La Math-Stack. 
Je n'ai pas eû Le temps d'empêcher cela. IL vaut 
mieux avoir un  débogueur qui détruit la 
Math-Stack que pas de débogueur du tout ! 


Je vous conseille d'éplucher Le source de ce 
programme (peut-être pas La partie assembleur, 
qui n'est pas passionnante). En effet, pour bien 
l'utiliser, il faut savoir comment ça marche. Je 
suis à votre entière disposition pour toute aide 


sur ce débogueur. N'hésitez pas à écrire (avec 
une enveloppe timbrée pour La réponse, ça va 
beaucoup plus vite 1), je suis Là pour ça ! 
REMERCIEMENTS 

Je tiens à remercier ici nos amis Danois, sans 


qui cela n'aurait vraissemblablement pas vu le 
jour aussi vite. 


Je tiens aussi à remercier Jean-Jacques Dhénin, 


Michel Martinet, et Janick Taillandier pour leur 
soutien, et leur aide dans le débogage de ce 
débogueur 1! 


Allez, déboguez bien, et à bientôt ! 


(dites le vite, une fois !) 


Pierre DAVID 
33 Bld St Martin 


75003 PARIS 
FORTH 
TITLE 
MLFFLG  EQU 
TRFMBF  EQU 
CSRCS5  EQU 
CSLCS  EQU 
OONERR  EQU 
OERR? EQU 
DSTKAD  EQU 
ACTIVE  EQU 
oFLD EQU 
OoRQ EQU 
OBASIC EQU 
SVSTAT EQU 
GTSTAT EQU 
NEXTOO EQU 
DSPCHC EQU 
WORD 
ADOEX 
D0=(5) 
LC(2) 
DATO=C 
DO=D0+ 
LC(5) 
DATO=C 
DO=A 
RTNCC 
KKRRRRRRRÉ 
STOD1 C=DATI 
D1=D1+ 
STO DATO=C 
DO=D0+ 
RTN 
STO5D1 C=DATI 
D1=D1+ 
DATO=C 
DO=D0+ 
RTN 
STITLE 
CNTRL R4=C 
CSLC 
CSLC 
CSLC 


Pierre DAVID (SIG#1, P#37, CHHU#616) 


##*** DEBOGUEUR EN FORTH **** 


#2F870 
#2F8C5 
#1B41B 
#1B435 
#2FBB6 
#2FBBB 
#2FAFD 
#2FBOC 
#2FB7F 
#èFB16 
#2FBA2 
#E47C7 
#E 1BAS 
#E7 100 
#01C3C 


‘DEBOG! 


#2F90F 
#D8 

B 

2 
CNTRL 
A 


u > U1 > 


*XXX ASSEMBLEUR > FORTH **** 
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CNT10 


CNT41 


CNT42 


CNT43 


CNT44 


CNT20 


CNT21 
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CSLC 
CSLC 
CDOEX 
DO=(5) 
DATO=C 
C=0 


_ GONC 


C=C+1 
DO=D0+ 
CD1EX 
DATO=C 
DO=D0+ 
CD1EX 


REG 
A 

B 
CNT10 
B 

5 


DATO=C 1 


DO=D0+ 
C=P 
DATO=C 
DO=D0+ 
C=0 
C=C-1 
DATO=C 
DO=D0+ 
C=ST 
DATO=C 
DO=D0+ 
C=0 

P= 
2ST=0 
GOYES 
C+P+1 
P= 
2ST=0 
GOYES 
C+P+1 
P= 
?ST=0 
GOYES 
C+P+1 
P= 
?2ST=0 
GOYES 
C+P+1 
DATO=C 
DO=D0+ 
C=0 
2XM=0 
GOYES 
C+P+1 
P= 
?SB=0 
GOYES 
C+P+1 
P= 
2SR=0 
GOYES 


nn "nn nn = n à 


NN > KW 


CNT41 


14 
CNT42 


13 
CNT43 


12 
CNT44 


_—_ 


CNT20 


CNT21 


CNT22 


DO 


D1 


Cy 


F si Hex, 9 si Déc 


ST 


PST (Prog. STatus: S15 à 
S12) 


C+P+1 
CNT22 P= 
?MP=0 
GOYES 
C+P+1 
DATO=C 
DO=D0+ 
C=RSTK 
DATO=C 
DO=D0+ 
P=P-1 
GONC 
GOSBVL 
RSTK=C 
C=A 
GOSUB 
C=B 
GOSUB 
C=R& 
C=RSTK 
GOSUB 
C=D 
GOSUB 
C=RO 
GOSUB 
C=R1 
GOSUB 
C=R2 
GOSUB 
C=R3 
GOSUB 
D1=(5) 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


CNT30 


CNT40 


* 


CNT30 


1 HST (MP,SR,SB,XM) 
1 _ (Poids fort -> faible) 


A RSTK 


un 


CNT40 
CSRCS 


- 
STO à 
- 
STO 8 


STO C 
w 
STO D 


STO RO 


STO R1 


STO R2 


STO R3 
1+CMLFFLG) 
STO01 

ST0D1 
STO5D1 
STO5D1 
STOD1 

STOD1 
STO5D1 
STO5D1 


Une autre facon de 
dire STMTRO... 


* Maintenant, nous rendons Le contrôle à 
* l'interpréte FORTH 


* 


SETHEX 


P= 
D0=(5) 
C=0 
DATO=C 
D0=(5) 
DATO=C 
D0=(5) 
C=DATO 
D1=C 
DO=(5) 


0 
OONERR 
A 

A 
OERR? 
A 
DSTKAD 
À 


oRO 


DEJA 


PINIT 
SETI 


DEJA2 


RETOS 


C=DATO 
R3=C 
D0=(5) 
A=DATO 
C=0 
C=C+1 
DATO=C 
D0=(5) 
DATO=A 
?2A#0 
GOYES 
GOSBVL 
D0=(5) 
C=0 
DATO=C 
C=R3 
B=C 
GOSUB 
BSS 
C=RSTK 
CDOEX 
GOVLNG 


STITLE 
WORD 
CD1EX 
D1=(5) 
DAT1=C 
DO=(5) 
C=DATO 
DO=(5) 
DATO=C 
?C#0 
GOYES 
GOSBVL 
D0=(5) 
C=DATO 
GOSUB 
SB=0 
CSRB 
?2S8=0 
GOYES 
XM=0 
D0=(5) 
D1=(5) 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
R3=C 


A 


ACTIVE 


DEJA 

SVSTAT 

OBASIC 

A 

À RET10 


SETI 
=) CFA du mot central du 
débogueur, connu plus tard 


NEXTOO 


*##%* FORTH > ASSEMBLEUR **#*%* 
!RETOUR 


DSTKAD 

A 

OFLD 

A 

ACTIVE 

A RET15 
A 
DEJA2 
GTSTAT 
HST 

1 

XM=1 


RET14 


RET13 


RETOS 


REGFIN 
TRFMBF 
RCL5D1 
RCL5D1 
RCLD1 
RCLD1 
RCL5D1 
RCL5D1 
RCLD1 
RCLD1 
RCL 


RET12 


HEX 


R3 


GOSUB 
R2=C 
GOSUB 
R1=C 
GOSUB 
RO=C 
GOSUB 
D=C 
DO=D0- 
GOSUB 
B=C 
GOSUB 
A=C 

P= 
DO=D0- 
C=DATO 
RSTK=C 
P=P-1 
GONC 
DO=D0- 
C=DATO 
CSRB 
SB=0 
CSRB 
SETHEX 
DO=D0- 
C=DATO 
C=C+C 
ST=0 
GONC 
ST=1 
C=C+C 
ST=0 
GONC 
ST=1 
C=C+C 
ST=0 
GONC 
ST=1 
C=C+C 
ST=0 
GONC 
ST=1 
D0O=D0- 
C=DATO 
ST=C 
D0O=D0- 
C=DATO 
C=C+1 
GOC 
SETDEC 
D0O=D0- 
C=DATO 
P=C 
DO=D0- 


RCL 


RCL 


RCL 


RCL 


16 
RCL 


RCL 


>» NT 


RET10 


1 

S 

S 

15 
RET15 
15 

S 

14 
RET14 
14 

S 

13 
RET13 
13 

S 

12 
RETI2 
12 

3 

3 


un 


HEX 


bb 


1 


R2 
R1 


RO 


RSTK 


HST (MP,SR,SB,XM) 


Maintenant, SB est remis 


PST (Program STatus: $S15 à 
S12) 


ST 


Mode Hex ou Déc 


C valait #F 


Cy 
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RET20 


RET99 


RCL 


XM=1 
RCLD1 


RCL5D1 


REG 
DO 
D1 
Cy 


MODE 
ST 
PST 
HST 
PC 
RSTK 


SRO 
SR1 


JPC 


C=DATO 
?C#0 
GOYES 
D0O=(5) 
C=DATO 
D1=C 
D0=(5) 
C=DATO 
D0=(5) 
DATO=C 
D0=(5) 
C=DATO 
NIBHEX 
Bss 
RTN 
DO=D0- 
C=DATO 
RTNSXM 
GOSUB 
D1=01- 
DAT1=C 
RTN 
DO=00- 
C=DATO 
D1=01- 
DAT1=C 
RTN 
STITLE 


BSS 
BSS 
BSS 
BSs 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
8ss 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 


S 


RET20 
D1 D1 


DO DO 

A 

RET99 

À 

C 

W 

18 DO=(5) #00000 


>» nu >» 1 


WAa% REGISTRES DU 1LF2 **%* 


Ur UV U1 U1 U1 OUI UT U1 — — (NW = = = Ur U1 


à Où ù ed ù «à «à «ù «b à 
oo 0 0 om  œ 


SDQ 
SD 
FRO 
FR1 
FDO 
FD1 
REGFIN 


PMUD10 


PMUD20 
PMUD30 


PMUD40 


BSS 
BSS 
BSS 
BSS 
BSS 
BSS 


STITLE 
WORD 
CDOEX 
RSTK=C 
C=8 
RSTK=C 
C=DAT1 
D1=01+ 
=DAT1 
D1=D1+ 
A=A+C 
A=A-1 
DO=A 
CD1EX 
RSTK=C 
CD1EX 
GONC 
RSTK=C 
A=0 
A=DATO 
DO=D0- 
CDOEX 
RSTK=C 
LC(2) 
?7A>C 
GOYES 
LCASC 
GONC 
LC(2) 
C=C+A 
GOSBVL 
C=RSTK 
DO=C 
C=RSTK 
C=C-1 
GONC 
C=RSTK 
D1=C 
C=RSTK 
B=C 
C=RSTK 
DO=C 
RTNCC 


WORD 
RTNCC 
CON(5) 
CON(5) 


16 
16 


*hhRÉ 


: PMUD 


>» 2 1 B U1 > 


PMUD40 


— 


9 

B 
PMUD20 
‘0! 
PMUD30 
AID 
B 
DSPCHC 


À 
PMUD 10 


'DCST'! 


PINIT 
REG 


UTILITAIRES sens 


B.E.T. 


B.E.T. 


Debogger ConSTants 
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END 


( MON SERRE PR PE SE D De ee eee ee ee er er ee ee ee ee ee re ee 


ÇC* Module d'affichage des registres _ 


{ PNA EAU EE VOA EEE AE A A A A ER AE 


mémoire. Ce module fournit l'ensemble des 
secondaires pour visualiser les registres et 
la zone "Statement & Function Scratch" . 


un mm ms 


Nous emploiïerons abusivement, dans ce qui suit 
le terme registre pour désigner la zone de 
scratch. La différence se situe au niveau 
conceptuel ; mais au niveau strictement 
physique, nous raïsonnons sur une image de ce 
qui existait à un instant donné, et tout est 
traité de manière identique. 


mn mm Ps Pa 


Principe : On crée une table de constantes, 
pour désigner Les adresses des registres. Les 
mots qui permettront d'afficher ces registres 
seront Les mêmes, avec un point "." devant. 
Ainsi, RO désigne Le registre RO, mais .RO est 
l'action affichant Le contenu de RO. 


Um mm Ps Ps 


BASE ad DECIMAL 


( Adresse de base de la zone image 
t DCST 7 + DUP à SWAP 5 + Qq ( PINIT REG ) 


DUP CONSTANT REG 

DUP CONSTANT DO 5+ 

DUP CONSTANT D1 5+ 

DUP CONSTANT Cy 1+ 

DUP CONSTANT P 1+ 

DUP CONSTANT MODE 1+ 

DUP CONSTANT ST 5+ 

DUP CONSTANT PC 5+ 

DUP CONSTANT RSTK 7 5 * + 
DUP CONSTANT A 16 
DUP CONSTANT B 16 
DUP CONSTANT C 16 
DUP CONSTANT D 16 
DUP CONSTANT RO 16 + 
DUP CONSTANT R1 16 + 
DUP CONSTANT R2 16 + 
DUP CONSTANT R3 16 + 


+ 


+ + + 


) 
) 
) 


But: exploiter l'image des registres stockée en) 


) 


dl St St St ot 


DUP CONSTANT SRO 16 + 
DUP CONSTANT SR1 16 + 
DUP CONSTANT SDO 5 + 

DUP CONSTANT SD1 5 + 

DUP CONSTANT FRO 16 + 
DUP CONSTANT FR1 16 + 
DUP CONSTANT FDO 5 + 

CONSTANT FD1 


D = mm "mm PO Pa 





Variable FICHIER : Elle sert à stocker Le nom ) 
du fichier courant. Ainsi, tous Les affichages ) 


du pointeur programme {mais pas de La pile} 
seront relatifs au début du fichier. Les 
adresses sont alors compatibles avec Le 
listing issu de l'assemblage. 

STRING FICHIER 


2SP SPACE SPACE ; 

.A ." À =" A 16 PMUD : 
.B ." B =" B 16 PMUD ;: 
.C ." C =" C 16 PMUD ;: 
.D ." D =" D 16 PMUD ; 
.RO ." RO=" RO 16 PMUD 
.R1 ." R1=" R1 16 PMUD 
.R2 ." R2=" R2 16 PMUD 
.R3 ." R3z=# R3 16 PMUD 
.DO ." DO=" DO 5 PMUD ; 
.D1 ." D1=" D1 5 PMUD ; 
.Cy ." Cy=" Cy 1 PMUD : 


-. .. — .. 


: .P .® Pau P 1 PMU : 


.. 


.MODE ." Mode=!"" MODE NQ 
9 = IF ." Dec" ELSE ." Hex'" THEN : 
.ST " ST=0123456789012345XBRP" ( adr nb) 
PAD SMOVE PAD 
ST à 1 ( adr ST masque ) 
23 3 DO 
2DUP  ( adr ST masque ST masque ) 
AND ( adr ST masque bit_correspondant ) 
0= IF ( adr ST masque ) 
3 PICK I 2* + 45 SWAP CI! THEN 
e* ( adr ST masque*2) 
LOOP 
2DROP 23 TYPE : 
.PC BASE Q HEX 


." PC=" PC à 
FICHIER DUP O= IF 2DROP O ELSE FINDF THEN 


O0 <### AA À #> TYPE 


BASE ! 


u 
. 


: .RSTK RSTK 


7 0 DO 
. S9 1 48 + ENIT ." = 
DUP 5 PMUD 2SP 5+ 

LOOP DROP ; 

.SRO ."" STMTRO=!" SRO 16 PMUD ; 


JPC 30 Page 39 


) 


) 
) 
) 


ms Ps 


.SR1 ." STMTRI=" SR1 16 PMUD ; 
.SDO ." STMTDO=" SDO 5 PMUD ; 
.SD1 ." STMTDI=" SD1 5 PMUD : 
.FRO ." FUNCRO=" FRO 16 PMUD 
.FR1 ." FUNCR1=" FR1 16 PMUD 
.FDO ." FUNCDO=" FDO 5 PMUD 
.FD1 ." FUNCD1=" FD1 5 PMUD 
.REG 

A SPACE .B SPACE .C SPACE .D CR 
.RO SPACE .R1 SPACE .R2 SPACE .R3 CR 
.PC 2SP .D0 2SP .D1 2SP .MODE 2SP 
.ST 2SP .Cy 2SP .P CR 

.RSTK CR ; 


. …. 


-. . 


Attention, on met QUIT comme mot de contrôle 
du débogueur. Ainsi, l'utilisateur qui a 
oublié de charger Le module suivant n'aura pas 
de beau Memory Lost {du moins pas à cause de 
moi !}. Ce module est donc utilisable sans Le 
suivant... 


QUIT SWAP ! ( PINIT ) 


BASE |! 


mn ELLES Ds 


mn mms LS 


AO HE EE AE AA ee ee A A ee 


* Module de contrôle de l'exécution * 
ANNE NMRRRRRMRRRRÉARRÉRRRERRERRRERRRHARERRRRRRRÉ 


“ 


But: prendre Le contrôle à chaque fois que 
l'on rentre dans Le débogueur, pour déterminer 
si on doit s'arrêter ou non. 


Modes gérés par Le module : 

Mode 1 = T (Trace) : Passage à travers un 
certain nombre de points d'arrêts, avec 
affichage des registres ".REG" à chaque 
point d'arrêt sauté. 

Mode 2 = U (Untrace) : 
affichage des registres à chaque passage. 

Mode 3 = G (Go) : Exécution directe, jusqu'au 
point d'arrêt dont l'adresse est indiquée 
soit en absolu {variable "Fichier!" vide}, 
soit en relatif {variable "Fichier" contient 

Le nom du fichier} 


similaire à T, sans 


Variables : 
MODE -EXEC : Contient Le mode d'exécution 
choisi, soit une valeur de 1 à 3. 
PAS : suivant La valeur de MODE-EXEC, 
MODE-EXEC=1 ou 2 : PAS indique le nombre de 
points d'arrêt à sauter. 
MODE-EXEC=3 : PAS indique l'adresse où doit 
s'arrêter Le débogueur £en relatif ou en 
absolu, suivant Le contenu de FICHIER}. 


dt St St St St St St St ot 


VARIABLE MODE -EXEC 
VARIABLE PAS 


O MODE-EXEC ! 1 PAS ! 


.. mn mms Ps 


-. 


mn 7 


Um mms SES Ps 


mn Um 


C'137, en 38 ) 
( Nombre de sauts ) 


( Initialisations ) 


But: décider de l'arrêt si on est en mode "G". ) 
Pour cela, G-STOP? compare La valeur courante ) 
du pointeur programme {PC} et La valeur de PAS ) 
éventuel lement ajoutée à l'adresse du fichier. ) 
Si égalité, on renvoie Le flag vrai €-1} pour ) 
signaler l'arrêt. ) 


G-STOP? (€ ->f) 

FICHIER FINDF ( adr. du fichier ou 0 ) 
PAS à + ( ajout de l'adresse  ) 
PC à ( pointeur programme  }) 
= ( Vrai si stop, fx si cont.) 
cssssssesscsesesssmssssumessesssssssssesessssssea ) 
- T-U-STOP? -) 
cucssecsesessvesesessesessessssesssesssessesesseuse ) 


But: renvoyer La valeur vraie {-1} si Les PAS ) 
points d'arrêt ont été sautés. PAS est ) 
décrémenté jusqu'à atteindre La valeur 0. ) 
Important: une valeur négative de PAS provoque ) 
l'arrêt. C'est Le cas typique où on oublie de ) 
remettre une bonne valeur avant le retour. ) 
Comme ce genre de bévue arrivera souvent {111} ) 
je fais Les tests en mode "signé": une valeur ) 
négative arrête donc bien Le débogueur, et il ) 
n'est pas besoin de réactualiser PAS à chaque ) 
arrêt. Attention, ne Le faites que 2719 fois ! ) 


T-U-STOP? ( -> f ) 
PAS @ 1- DUP PAS ! ( pas ) 
DUP 0= SWAP 0< OR € Vrai si stop, fx si cont.) 


sms. ) 
- STOP? “) 
cssesssscseerssssssessessessesesssesesssesssss.se ) 
But: décider de l'arrêt en fonction du mode ) 
choisi. Une autre valeur que 1, 2 ou 3 ) 
provoque l'arrêt. C'est en fait Le groupement ) 
des deux mots précédents. ) 
STOP? ( ->f) 

MODE -EXEC à ( mode-exec courant ) 


CASE 


1 OF T-U-STOP? ENDOF ( mode T ) 


__ JPC 30 Page 40 


2 OF T-U-STOP? ENDOF ( mode U ) 
3 OF G-STOP? ENDOF ( mode G ) 


1 (€ Vrai ! ) 
ENDCASE ; 
L'URSS NAN ESA NAS NRA ISS TASER SSSR NS ) 
( - CONTROLE - EXECUT ION  ) 
LUNSTERAEN ARRETE SAR ENTAARINNSAS FATAL S STAR ) 
( But: agir à chaque entrée dans Le débogueur. ) 
( Ce mot prend le contrôle et décide de l'arrêt, ) 
( et de l'affichage éventuel des registres. ) 
( C'est le mot appelé par La routine assembleur, ) 
( et vous noterez qu'il contient un "ABORT". ) 
: CONTROLE -EXECUTION 
STOP? ( vrai: stop, faux: cont. ) 
IF .REG ABORT' --- Debogueur ! ---1t 
ELSE 
MODE -EXEC àQ 1 = IF .REG CR THEN 
RETOUR 
THEN 


L 2] 


( maintenant, il s'agit de mettre l'adresse du ) 
( mot CONTROLE-EXECUTION au bon endroit... ) 
1 CONTROLE -EXECUT ION 

1 DCST 5+ 2+ à 

! 

( Ca y est, maintenant Le débogueur est ) 
( utilisable ! ) 


mms eme mem 


BREAK - FORTH 


Cet article a pour but de vous présenter 
l'adaptation d'un mot paru dans le Forth 
Dimension Vol. 5 noi pour le forth du 71. 
Souvenez vous du temps que vous avez passé à 
faire votre dernier mot forth, éh oui ! Votre 
samedi après-midi et peut être même une partie 
du dimanche. Et pourquoi tant de temps ? 
Simplement parcequ'il vous manquait un DUP, ou 
au contraire un nombre se trouvait dans [la pile 
alors qu'il n'aurait pas dû y être. Mais comment 
s'en rendre compte ? 


Voici l'objet de BREAK : un BREAK placé dans un 
endroit stratégique de votre mot  interrompt 
MOMENTANEMENT son exécution en vous permettant 





d'exécuter tout Les mots que vous voulez (entre 
autre, vérifier l'état des piles, et si 
nécessaire dans changer les valeurs). 


Comment cela est il possible ? 
Malheureusement ce mot est désespérément 


simple, et je n'impressionerai personne en 
l'expliquant. 


Le principe est très simple: BREAK n'est qu'une 
boucle (donc interruption de l'exécution) qui 
exécute ce que vous tapez au clavier, ce qui 
revient à "créer" un nouvel interpréteur. Pour 
cela deux mots: QUERY et INTERPRET. 


QUERY  interrompt La boucle et vous permet de 
rentrer ce que vous voulez au clavier jusqu'à La 
pression de END-LINE puis dépose tout cela dans 
le T.1.B. et INTERPRET intreprête (étonnant non 2?) 
ce qui se trouve dans Le T.I.B. ( c'est-à-dire 
ce que vous avez rentré au clavier) car on a 
précédemment chargé 0 dans La variable BLK ( 
sinon il exécuterait ce qui se trouve dans le 
“Masse Storage Buffer"... }). Pour sortir de 
cette boucle (ji.e. continuer l'exécution) ïl 
suffit de taper Le mot CONT qui change La valeur 
d'une variable qui est testée lors de La boucle 
de BREAK et donc permet d'en sortir (boucle 
BEGIN... WHILE... REPEAT). 


Le fond étant compris voici 
raffinements: 


quelques 


Lors de La boucle de BREAK ce n'est plus OK € X } 
qui est affiché mais OK! € X' } pour bien vous 
indiquer que vous êtes dans La boucle de BREAK 
et Le X' vous indique le nombre de valeurs que 
vous avez rajoutées dans La pile (c'est-à-dire 
le nombre réel de valeurs dans La pile moins 
celui des valeurs dont se sert le programme). Si 
vous voulez voir les valeurs dont se sert Le mot 
il suffit de taper .S . 


Par sécurité (éviter Le Memory Lost) on vérifie 
que Le nombre de valeurs dans La pile de retour 
est inchangé, c'est-à-dire que vous pouvez 
changer leur valeur mais pas leur quantité. 


Au total nous avons besoin de trois variables: 
une qui contient La position de La Return Stack 
avant La boucle, une qui contient Le nombre de 
valeurs de La Data Stack avant la boucle et une 
qui contient La valeur de La variable testée 
pour sortir de La boucle, et donc pour éviter de 
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créer trois entêtes on crée une “super variable!" 
pouvant contenir trois nombres (VBREAK). 


Alain HERREMAN 


CREATE CBREAK F ALLOT 

: BREAK 

RPQ F - CBREAK À + ! O BLK ! 

1 CBREAK 5+ ! DEPTH CBREAK ! 

BEGIN QUERY INTERPRET CBREAK 5+ @ WHILE ." 
OK! € " DEPTH CBREAK àQ - . ." }" CR REPEAT ; 
: CONT O CBREAK 5+ ! CBREAK À + à RPa <> 

IF ." Can't resume !" QUIT THEN ; 


TRI EN FORTH 


Voici un exemple de récursivité en forth, ïl 
s'agit de trier par ordre décroissant Les 
nombres de La Data Stack (SORT). 


.Autant vous dire que ce mot ne me sert 
absoluement à rien, mais il m'a amené à créer 
d'autres mots plus utiles (déjà parcequ'ils 
servent à créer SORT ! ), il s'agit de NDROP et 
PICK> |. NDROP supprime Le nième nombre de la 
pile de données et PICK> fait l'équivalent de 
PICK : rappeler Le nième nombre de La pile mais 
sans Le dupliquer, c'est-à-dire Le supprime de 
son ancienne place. Bravo à ceux qui avaient 
fait Le rapprochement entre PICK et PICK> (et 
colegramme...) avant que je ne l'explique ! SORT 
quant à lui, il faut bien en parler un peu, 


détermine Le max. des éléments de La pile en 


comparant Les éléments 2 par 2 et en laissant le 
plus grand sur Le dessus, Le max. déterminé il 
le met dans La Return Stack puis recommence à 
déterminer Le max. des nombres qui restent (d'où 
la récursivité)... Quand il ne reste plus qu'un 
nombre dans La pile (c'est Le min.) on remet 
tous Les nombres de La Return dans la Data 
Stack, mais cette fois dans l'ordre (silence 
émerveillé...). Si vous préférez avoir les 
nombres dans l'ordre croissant il suffit de 
changer MIN en MAX et MAX en MIN, enfin on se 
sert de MYSELF qui permet La récursivité en 
rappelant Le mot dans lequel il est placé cela 


en chargeant lors de La compilation Le CFA du mot. 


Alain HERREMAN 


: NDROP 

DUP DEPTH 2- > 

IF . ." Trop grand." " BEEP"BASICX ELSE 
SPQ 5+ DUP 5+ ROT 1- 5 * NMOVE> DROP THEN ; 
: PICK> 

1+ DUP PICK SWAP NDROP ; 

: SORT 

DEPTH 1- IF DEPTH 1+ 2 DO I PICK> 2DUP 

MIN ROT ROT MAX LOOP >R MYSELF R> THEN ; 


RESPECTEZ LES CHAMPS DE VOS FICHIERS SOURCES 


Voici un petit Lex qui nous Le pensons sera 
très utile à tout ceux qui en on marre de 
chercher ou se trouve Leur curseur lorsqu'ils 
font de l'assembleur en plein format. 


PRINCIPE: 

Ce Lex vous permet de faire avancer Le curseur 
aux bonnes colonnes, pour respecter Les champs 
Label, Mnémonique, Modificateur et Commentaire 
lors que voulez faire un fichier source. 

Pour activer ce mode "champs" il vous suffit de 
presser [ff,]1]1 et le tour est joué. Pour en 
sortir vous faites de même: c'est bi-stable ! 

Nous sommes encore en présence de ce bon vieux 
poll "PKYDF'! qui cette fois-ci est intercepté 
avec une redéfinition de touche. 


Voilà, Le Listing source n'est pas très grand 
mais si vous êtes trop fatigués reportez vous à 
La rubrique "Le coin des Lhex'". 


Bon assembl age 
A bientôt 
Heureuse Programmation 


Stéphane BARIZIEN 
Pierre DAVID 
Michel MARTINET 


PKYDF 
ASRU5 
RESERV 
DEFADR 
ATNDIS 
KcCALC 
FLGREG 
DSPBFS 
DSPBFE 
CURSOR 
SPCKEY 
MNEMF 
MODF 
COMF 


* 


* 


* 


* 


POLHND 


POLL10 


LEX 'ASFLEX'! 
ID #E1 
MSG 0 Fon 
POLL  POLHND Fok 
ENDTXT 
* 
EQU #1B rtn 
EQU #0EDOA FXQ 
EQU #2F986 
EQU #2F967 
EQU #2F441 
EQU #17 
EQU #2F6E9 
EQU #2F480 
EQU #2F540 
EQU #2F47E 
EQU #31 SPO5 
EQU Fr 
EQU 14 
EQU 23 
* 
RRKRRERRRRRERRRRRRRARERRRRERRERRRRERRERARRRRRARRMMNR 
* Auteur: Stéphane Barizien 03/85 - Interception 
de pKYDF et champs assembleur. 
* 1ère modification: M.MARTINET et P.DAVID 10/85 - 
transformation en FIELD ON | OFF. rtni 
* 2ème modification: M.MARTINET 12/85 - mise en SP06 
place de La bascule touche CALC et suppres- 
sion token FIELD ON | OFF. 
RRARRRRERRRRARRERRRRRRÉRRRERRRRRERRRERERRRRARRRRÉÈMÉ SPC8 
* 
LC(2) pKYDF 
2B8=C B 
GOYES POLL10 Ok: on exécute Le Lex 
RTNSXM Autrement fin. 
D0O=(5) ATNDIS Vérification de l'état 
C=DATO S de 
2C=0 S La touche ATTN 
GOYES rtn Si elle est Libre: fin 
DO=(4) 14+FLGREG ) Est-on sous éditeur 
C=DATO S de 
C=C+C S textes ? 
GONC  rtn Non: retour. 
A=RO AA] = touche pressée 
C=0 A 
LC(2) KcCALC Est-ce SP10 
2A#C A La touche CALC ? 
GOYES FXQ Non: exécution suite prgm. 
D0=(4) RESERV Autrement: changement 
A=DATO P d'état 
ECCIT TE du flag 
B=A A FIELD 
C=C&A A o 
?2C=0 P 


GOYES 
C=0 
GOC 
LC(1) 
C=C+B 
DATO=C 
GOTO 
RTNSXM 
D0=(4) 
=DATO 
LC(1) 
A=A&C 
?A=0 
GOYES 
D0O=(4) 
LC(3) 
B=C 
A=DATO 
?A=0 
GOYES 
LCASC 
?2A#C 
GOYES 
DO=D0+ 
B=B-1 
GONC 
GOC 
LCASC 
?2A=C 
GOYES 
=RO 
GOSBVL 
LC(2) 
?2A#C 
GOYES 
DO=(4) 
A=DATO 
LC(2) 
?2A<=C 
GOYES 
LC(2) 
?A<=C 
GOYES 
LC(2) 
?A>C 
GOYES 
C=C-A 
C=C+1 
D0O=(4) 
DATO=C 
DO=D0+ 
LCHEX 
DATO=C 
GOSUB 
NIBASC 


Fon 


Fok 

2 

P 

P 
rtnxmO 


RESERV 
1 

è 

P 

P 

rtn 
DSPBFS 


et fin d'exécution 


Exécution du programme 
Est-on en mode field on ? 


Non: fin de programme 
Oui: continu 


(DSPBFE)-(DSPBFS)-1 


X 
B 
B 
SPO8 


SP06 


SPO5 
rtn 
1x1 
B 
rtn 


ASRW5 
SPCKEY 
B 

rtn 
CURSOR 
B 


B:ET: 
Y a-t-il des remarques ? 


Oui: fin de programme 
Autrement: La touche 
pressée est-elle 

un espace ? 

Si non: 

fin de programme 
Vérification 
position du curseur 


(MNEMF)-1 en fonction 


B 
SP10 


(MODF)-1 


B 
SP10 


(COMF)-1 


B 

rtni 

à 

A 
DEFADR 
B 

è 

4 

1 
SKPTBL 


des 

différents 

champs : 

MNEMF: mnémo-field 

MODF : modification-field 
COMF : comment-field 


Redéfinition 
de La touche 
espace 

avec 

Le 

bon 

nombre 

de 

!  CARACTERES 
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NIBASC ! ! BLANCS 
SKPTBL C=RSTK Sortie de table 


DO=D0+ 1 

DATO=C A 

ST=1 0 ST(01=1 => définit. touche 
rtnxmO XM=0Q ST(01=0 => touche inhibée 

RTNCC Puis interception du Poll. 

END Fin du Lex 


ASSEMBLEUR ET MEMOIRES DE MASSE 


Voici comme je vous le disais dans notre 
dernier numéro quatre petites fonctions 
complémentaires HPIL. 


MAXD(<Spécificateur d'appareil>) 


Cette fonction renvoie Le nombre maximum 
d'entrées dans Le directory du support. Ce 
nombre est celui que vous avez indiqué en 
initialisant Le support. 

Par défaut, Les cassettes sont initialisées à 
128 entrées, Les diskettes simple face à 264 
entrées et Les diskettes double face à 616 
entrées. 


MAXM(<Spécificateur d'appareil>) 


Cette fonction renvoie La capacité maximale du 
support. Les cassettes font 131072 octets, les 
diskettes simple face 270336 octets et les 
diskettes doubles faces 630784 octets. 


MEMD(<Spécificateur d'appareil>) 


Cette fonction renvoie Le nombre exact d'entrée 
non utilisées sur le support. 


MEMM(<Spécificateur d'appareil>) 


Cette fonction renvoie La mémoire (réelle) 
disponible sur Le support. EXEMPLE: \Supposons 
que nous prenons une diskette double face venant 
juste d'être initialisée. 


MAXM(!:TAPEN) retourne 630784, c'est La 
capacité maxi de La diskette. 


630784 = 2464 enregistrements de 256 octets. 


MAXD(":TAPEN) retourne 616, c'est Le nombre 
maxi d'entrée dans Le directory. Il y a 8 
entrées par enregistrements d'où L'on obtient La 
longueur totale de celui-ci : 616/8 = 77 
enregistrements (soit 19712 octets). 


MEMD(“:TAPE") renvoie 616 puisque aucun fichier 
n'y est enregistré. 


MEMM(":TAPE") renvoie 610560, c'est La mémoire 
réellement disponible sur Le support. En plus du 
directory, Les 512 premiers octets de tout 
support de mémoire de masse sont réservés "au 
service", c'est-à-dire pour coder toutes Les 
informations nécéssaires pour La 
lecture/écriture sur Le support. 

630784 - (19712 + 512) = 610560 

MAXM DIR RES MEMM 


Voilà, je me tiens à votre entière disposition 
pour tout autres renseignements. 


Michel MARTINET (SIG#2, PC#12, CHHU#617) 
T.A.0. B.C.M.W. Conseil 


LEX 'MMLEX 
ID #E1 
MSG 0 
POLL O0 
ENTRY  MXD 
CHAR  #F 
ENTRY MXM 
CHAR  #F 
ENTRY MDIR 
CHAR  #F 
ENTRY MEM 
CHAR #F 

KEY 'MAXD ! 
TOKEN 57 
KEY 'MAXM' 
TOKEN 58 

KEY "MEMD' 
TOKEN 59 
KEY ‘MEMM' 
TOKEN 60 
ENDTXT 


A-MULT EQU #1B8349 
ATNFLG EQU #2F442 
Attn  EQU 12 
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BSERR 
CHKMAS 
CSRW5 
D=AVMS 
DEVPAR 
ENDTAP 
FNRTN& 
Flg 
GDIRST 
GETERR 
GETMBX 
HDFLT 
1/0FND 
LEXPIL 
MEMERR 
R<RSTK 
READR# 
RSTK<R 
SNAPBF 
bLEX 
eABORT 
eNODEF 
ePIL 
eTAPE 
eXWORD 
memf Lg 


EQU #0939A 
EQU #425C 
EQU #OED2C 
EQU #1A460 
EQU #1BF0 
EQU #44D9 
EQU #0F238 
EQU 11 

EQU #4843 
EQU * #6791 
EQU #3B62 
EQU #1831B 
EQU #118BA 
EQU #FF 
EQU #09440 
EQU #014D0 
EQU #4&4FF 
EQU #014A8 
EQU #2F7FO0 
EQU #BFC 
EQU 5 

EQU 3 

EQU 2 

EQU 1 

EQU #23 
EQU 10 


AAC He De ee A A AA OR EE RE 


* La routine VERTAP verifie si le paramètre 
* pointé par D1 correspond bien à une mémoire 


* de masse d'identificateur appareil 16. 
VON He De de Ve ee ee ee ee ere ee ee ee ee er re A re re ee 


Dvnfnd P= ePil Classe d'erreur 32 à 47 KRRRRRREARARRRRRRRRRRRARRRRRRERRRRRRRÉRERRRRRRRMÉRRRÉ 
C=0 h Erreur 32. *MAXD 
GOC erreur B.E.T. RON CR ee eee ee ee ee ee ee ee he he eee eee he ee ee ee eee ere er de ee fe 
VERTAP GOSUB  JUMPER NIBHEX C11 Alpha ou un numérique. 
CON(S) DEVPAR  Routine d'analyse du MXD CDOEX 
spécificateur d' appareil RSTK=C 
F de La fonction. En sortie GOSUB r<rstk 
® D1 * Math Stack - 16 pour GOSUB VERTAP 
. un paramètre numérique. GOSUB  JUMPER 
GOC erreur Si carry: ERREUR CON(5) GDIRST Get DIRectory STart 
?20=0 XX DIX] contient l'adresse du GOC erreur Erreur si carry 
ds périphérique. Si DIX] = 0, C=D M D(5:8] = L. du dir. (enr.) 
GOYES Dvnfnd le périphérique n'est pas GOSBVL CSRWS C[A] = longueur au dir. 
* présent. On renvoie A=C A ALA] = longueur du dir. 
” "Device Not Found! ASL 2 ALA] = 16 fois L. du dir. 
CD1EX ) Sauvegarde de D1 pour ASRB ACA] = |. du dir. * 8 
RO=C ) Le retour à BASIC (fin). 


GOSUB  JUMPER 
CON(5) CHKMAS 
RTNNC 


Vérification de l'AID du 
périphérique (16). 


Cy=0 : OK, Cy=1 : ERREUR 


De he he he he he de ee ee de he ee he he ee he he ee ee ee he de ee ee he ee ee er ee ee ee ee 





* Traitement des erreurs HPIL. P indique la 


* classe d'erreur (mémoire de masse... etc.) et 


* C[01 Le numéro de l'erreur. Le retour à la 


* main Loop se fait via BSERR. 
RRARRRRRRRERÉRRRRMMRRRÉÉNÉMMRÉ MR ÉNRRRRRRÉNÉRRARAUÉ 


erreur ?P= 
GOYES 
?P= 
GOYES 
?2P# 
GOYES 
GOSUB 
CON(5) 
GOSUB 
GOC 
GOSUB 
CON(5) 
GONC 
?2P# 
GOYES 

ERROR- P= 

ERRORO C=P 


ERROR1 C= 


P= 
bserr  GOVLNG 


eTAPE 
ERROR1 
ePIL 
ERROR1 
eABORT 
ERRORO 
JUMPER 
GETMBX 
atnchk 
ERRORO 
JUMPER 
GETERR 
ERROR - 
eABORT 
ERROR1 
eABORT 
0 
eNODEF 
1 

2 

FF 


0 
BSERR 


KKARRRRRRRRRRARRRRERRRRRRRRRRARRERARRRERALRNERRANMRR 


* SORTIE: commune, RETOUR A BASIC : 


Envoyez l'erreur ! 


Replace 


* 4 niveaux de pile des retours, Le compteur 


* programme dans DO, transforme A[A] en nombre 
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* flottant dans AlW1, replace D1 à sa place 
* sur La Math-Stack puis retour à Basic via 
* FNRTN&. (Rembobine Le support) 


RARRRARRRRRRRRARRRÉMAMNÉRRARRRRARRRRRÉRRRRRRERRRRRARÉÉ 


SORTIE GOSUB  JUMPER 


Erreur GOTO 


CON(5) ENDTAP 
GOC Erreur 
P= & 
GOSBVL RSTK<R 
C=RSTK 

DO=C 

GOSBVL HDFLT 
C=RO 

D1=C 

C=A W 
GOVLNG FNRTN& 


erreur 


memerr GOVLNG MEMERR 


Rembobine Le support 
de mémoire de masse 


) Restitution de 5 niveaux 
) de pile 

) puis de 

) DO (4 niveaux & PC) 
AIW] = longueur 

RO = D1 (MS-16) 

Di = MS-16 

C[W] = longueur 

retour à BASIC 


Ralonge 


RRRERERRRRRRRRRRRRERRERRRARRRRRARRRRRANRERRRRÉRRRRAN 


*MEMM 


KARERRRARERRRRRRERRARERÉRANMERÉERÉRRRRRRAÉERÉRÉAÉRÉÉRRÉRÉÉ 


MEM 


NIBHEX C11 
ST=0 memflg 
ST=1  Flg 
GONC  MXMC 


KARRRRRRRRRRRRRRERRÉRRRRRRARMMRÉNRMRNR MR RR MR NRÉÉÉT 


*MEMD 


KRRRRRRRRRRRRRRERRERÉRERRMNÉARÉRRÉRRNARARARAÉRÉÉÉRRARÉ 


MDIR 


NIBHEX C1i 
ST=1  memflg 
ST=0 Flg 
GONC  MXMC 


RARRRRRRRRRMRRRRMRMRMRRRRRMRRRMRMRMRRÉURRRRRMARAURÉ 


*MAXM 


Het ee he de ee ve ee he he he he he he eee he ee he ee ee ee he he ee he fee ee ee le ee de re ee 


MXM 
MXMC 


NIBHEX C11 
CLRST 

CDOEX 

RSTK=C 

GOSUB r<rstk 
GOSUB VERTAP 
A=RO 


C=D A 
RSTK=C 

C=0 A 
LCC3) #1F0 


Alpha ou un numérique 
Ni memflg ni Flg 


RO = MS-16 
) DIX] = device address 
) RSTK = D[X] 


1F0 = 512-16 = 496 


MXM10 


MEMOO 


MDIRXQ 


MEM10 


A=A-C 


À 


GOSBVL D=AVMS 


C=A 
?C<D 
GOYES 
R1=C 
D1=C 
A=0 


CERSTK 


D=C 
GOSUB 
CON(5) 
GOC 
A=R1 
?ST=1 


A 
À 
memerr 


& 


o 

JUMPER 
READR# 
Erreur 


memf | g 
MDIRXQ 
A 

48 

A 


4 
GETALR 
getA* 
getA* 
Flg 
MXM10 
MEMOO 
A 

A 
SORTIE 


16 


GETALR 


GETALR 
L 

Flg 
MEM10 
À 

A 


Flg 
MEM20 





MS-512 


À [A] 


CCA] = AVMEMS 

YŸ a-t-il assez de mem. ? 
Non: Erreur 

Sauvegarde de MS-512 

Di = Math Stack - 512 
ALA1 = # enreg. à lire 

) Restitution de 

) dev. add. dans D[X] 

> Lecture de l'enreg. ACLA] 
) en commencant à D1 * 


ACA] = MS-512 
Est-on entré via MEMIR ? 


“ pointe * L. max support 
) Calcul de 

) La longueur maximale 

) du support 

) de mémoire de masse 
Est-on entré via MAXMEM 


Autrement exécution de MEMM 
) multiplication de AA] 

) par 256 (dclg. d'1 octet) 
pré retour à BASIC 


B[A] = # enreg. maxi 


D1”* MS-512 
D1”" codage # Rec. Start DIR 


=> A(A]= 00002 dir. start 
BA] = # maxrec - vol.label 
R2= dir. start 

D1* code long. directory 


=> ALA]= Oxxxx Dir.Len 
B[A]=maxmem après format. 
Est-on entré via MEMM 


Sauvegarde de Dirlen dans C 
) A => R2 = compteur 

) ACA] = DIR START 
ALA]=Maxmem après format. 
R3=compteur mem :tape 
Est-on entré via MEMM 


) Non: division de C[A] par 
) 8 pour obtenir Le max dir 
) R3 compteur mem dir 
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MEM20 


GET#FL 


ERReur 


GET#E 


get#e 


incré 


MEM30 


R3-1 


R3-M 


GOSUB 
=R3 
?2ST=1 
RTNYES 
GOTO 


A=R1 
D1=A 
A=B 
GOSUB 
CON(5) 
GOC 
B=B+1 
A=R1 
D1=A 
GOSUB 
* 
A=R2 
A=A-1 
RTNC 
R2=A 
GONC 


GOTO 


LC(5) 


* 


P= 
A=0 
P=P-1 
RTNC 
D1=D1+ 
D1=D1+ 
A=DATI 
?A=C 
GOYES 
7A#0 
GOYES 
D1=D1+ 
D1=D1+ 
D1=01+ 
GONC 


?2ST=1 
GOYES 
A=R3 
A=A-1 
R3=A 
GONC 


D1=D1+ 
C=P 
RSTK=C 
P= 


GET#FL 


Flg 


SORTIE 


A 
JUMPER 
READR# 
ERReur 
A 


GET#E 


GET#FL 


erreur 


#FFFF 


A 
R3=0K 
A 
R3-1 
12 

16 

16 
get#e 


Flg 
R3-M 


à 


incré 


12 
& 


4 


Routine commune de comptage 
Az résulat GET#FL 

Est-on entré via MEMM ? 
Retour de MEMM 

Retour de MEMDIR 


D1* MS-512 
ALA] = # enregis. à lire 


B(A] = prochain # enr. 

D1 * MS - 512 

Routine de comptage des 8 
entrées directory d'un enr. 
) Décrémentation de R2 

) # d'enregistrements du 

) dir & retour si fin 
Autrement sauvegarde 

B.E.T 


C(3:0]1=FFFF, masque de com- 
paraison du rideau de fin d 
de directory 

8 = 8 entrées / enregist. 


Compteur 
Sortie si fin 


D1* type de fichier 
A(3:0] =type de fichier 
Est-ce le rideau (FFFF) 
Oui: fin du s.prog. 

A=0 => fichier purgé ! 


) On passe à l'entrée 
) suivante 

) 

B.E.T 


MEMM 7? 

Oui => R3- Long fichier 
autrement R3 

) -1 seulement pour 

) MEMDIR 

B.E.T. 


D1* Long. du fich. en #rec. 
Sauveg. pointeur # dir 


GOSUB GETALR AA] Long. # rec. du fich. 


C=RSTK 
CPEX 4 Restitution 
CR3EX ) 
C=C-A À ) R3 = R3 - # rec 
CR3EX ) 
D1=D1+ 8 Ajustement 
GONC  MEM30 B.E.T 
R3=OK C=RSTK Fin pop et retour 
RTN 


CN DORE DE RE RON RER RER RER Re 


* Cette routine sauvegarde 5 niveaux de pile 
ORCH CHOICE DE SONO DE ON EE CE RE RO RO ER ON ER RE RÉ 


r<rstk P= 4 


GOVLNG R<RSTK  INDIPENSABLE II! 


VHC de de he de De De De ee He RC HR RE Re RM RUE 


* Cette routine a été pompée dans Les 1DS V, elle 
* n'est pas supportée. Elle permet La sortie 

* de l'erreur Aborted lorsque l'on arrête l'exécu- 
* tion des routines HPIL en appuyant deux fois sur 
* La touche ATTN. 


ROC RO DONNE SE SUEDE AE Ve RE HI SPORE EP EEE EE A 


atnchk ?ST=0 Attn 
GOYES  ATNCHC 
RSTK=C 
CDOEX 
D0=(5) ATNFLG 
C=DATO S 
DQO=C 
C=RSTK 
2C=0 S 
GOYES  ATNCHC 
C=C+1 S 
GOC ATNCHc 
P= eABORT 
RTNSC 


ATNCHC RTNCC 


He he he he de he eee he de ee ee ee ee fe he ee ee he he ee ee ee ee ee ee fe ee re ee 


* Routine de calcul de La Longueur maxi 


* du support (multiplication) 
Note he de de de ee he ee he he he he ee he he ee he ee ee ee ee ee ee ee ee ee ee he fe he he he ee er 


getA* R2=A 
P= 4 
GOSUB GETALR 
C=R2 
GOSBVL A-MULT 
RTN 
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oo 


RÉRRRRARRRARRARRÉRNAARRRRÉRÉRRRRERRRRRÉRRARARERRRHRRR 


* GETALR: GET À Left-Right. 

* Cette routine permet de charger dans le registre 

* A n' octets. Les octets sont décalés vers La gau- 
che à chaque nouvel arrivant. 


Entrée: 


Utilise : 


* 
* 
* 
* 
* 
* Sortie: 
* 
* 
* 
* 
* 
* 


Di” premier octet à charger dans A 
P= Nombre d'octets à charger 


AC2*(Pentrée):0] = octets, le dernier 
étant toujours dans AfB]. 

P=0 

Di * après dernier octet 


C(B], ACWj, P , D1 


RRRRARARARRRRRRARERÉRRRRRANMRÉMÉRMRÉARARARRÉÉMÉ AR ÉÉU 


GETALR 


C=DAT1 B 
D1=D1+ 2 
ASL W 
ASL W 

=C BB 
P=P-1 

?P# 0 
GOYES GETALR 
RTN 


ROM MERE ARMOR EEE AE eee DA A De ee Ar fr er RE 


* ROUTINE JUMPER 
* Cette routine permet l'accès aux points d'entrée 
* supportés du module HPIL. Elle peut en réalité 


* servir à n'importe quelque fichier Lex. 
MONACO AO HO HE NE HE AE A He ee A ee AO A AE 


JUMPER 


JUMPO5 
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RSTK=C 

CD1EX 

D1=(5) SNAPBF 
DATI=C A 

D1=(2) (SNAPBF)+5 
C=RSTK 

DATI=C W 

D1=(4) (SNAPBF)+21 
DATISA W 

D1=(2) (SNAPBF)+37 
C=B À 

CPEX 5 

P= 6 

C=0 P 

GONC  JUMPO5 
C=C-1 P 


JUMP10 


JUMP20 


JUMP90 


JUMP30 


JUMP50 


JUMP60 


DAT1=C 
SETHEX 
P= 
LC(3) 
GOSBVL 
GONC 
LC(2) 


A=A+1 
C=DAT1 
?2C=0 
GOYES 
?2B#C 
GOYES 
CSR 
CSR 
?2A<C 
GOYES 
CSR 
CSR 
C=C-A 
GONC 
D1=01+ 
GONC 
LC(4) 
GOTO 
D1=D1+ 
C=DAT1 
B=C 
C=RSTK 
D1=C 
D1=D1+ 
CD1EX 
RSTK=C 
C=DAT1 
C=C+B 
RSTK=C 
D1=(5) 
A=DAT1 
D1=D1+ 
C=DAT1 


C=C+1 
GOC 
SETDEC 
p= 
?2C#0 
GOYES 
P=C 
D1=(4) 
C=DAT1 
D1=(2) 
RSTK=C 





0 

DLEX 
I/OFND 
JUMP90 
LEXPIL 


D > > > 


JUMP90 
B 
JUMP 20 
“ 
A 
B 
JUMP20 
À 
A 
B 
JUMP30 
11 
JUMP 10 
eXWORD 
bserr 
6 
A 
A 


(SNAPBF )+21 
W 

16 

8 

A 

7 

p 

JUMP50 


6 

p 

JUMP60 

5 
(SNAPBF)+5 
# 

SNAPBF 


C=DATI A 
D1=C 
=RSTK 
RTN 


END 


CCC mm mm mm mme OS O SON m D eme ee e © 


LA STRUCTURE FOR STEP EXIT NEXT 


La fonction ‘EXIT' présentée ici a pour but 
essentiel d'améliorer La lisibilité de vos 
programmes. Elle permet de sortir proprement 
d'une boucle avant La fin théorique de celle-ci 
telle que définie par l'ordre FOR. 

La syntaxe est La suivante: 


EXIT variable 


La variable en question est l'indice de boucle 
utilisé dans Les ordres FOR et NEXT. Lors de 
l'exécution de cet ordre il y a débranchement à 
l'instruction qui suit l'ordre NEXT de même 
variable. 


Ceci sera plus clair avec un exemple: 


FOR 1=1 TO 10 


FOR J=1 TO 10 
IF ... THEN EXIT I 


NEXT J 


NEXT I <= après EXIT l'execution 
se poursuit ici 


Le code proprement dit est essentiellement Le 
résultat d'une paraphrase du code de FOR et  NEXT 
généreusement fournit par HP. 

Le cas de EXIT exécuté depuis le clavier n'est 
pas traité car un tel ordre n'a d'intérêt que 
dans Le cadre d'un programme assez compliqué et, 
par ailleurs, Le traitement de cette condition 
complique Le code. 


JANICK TAILLANDIER (SIG#7 P#253 CHHU#202) 


LEX  'EXITLEX' 


ID #E 1 

MSG 0 

POLL 0 

ENTRY exit 

CHAR 12 non utilisable à partir 
, du clavier 

KEY TEXIT'! Syntaxe: EXIT N 

TOKEN 61 

ENDTXT 


NXTDC  EQU #0528A 
NXTP  EQU #03455 
RANGE  EQU #1B07C 
AVMEME EQU #°F599 
FORSTK EQU #2F59E 
RUNRTN EQU #O74EA 
TKSCN7 EQU #08A99 
eFwoNX EQU #2A 

MFERR EQU #09393 
tNEXT EQU #C4 

PRGMEN EQU #2F567 


EXITd GOVLNG =NXTDC 
EXITPp GOVLNG =NXTP 


ORAN CHOC EE ee ee ee eee ee ER A 


structure de La pile FOR-NEXT 
Low mem. 


5 quartets adresse de retour (D0) 

16 quartets  incrément 

16 quartets limite (TO) 

2 quartets ASCII letter or alpha-digit 
2 quartets 00 or ASCII letter 


_ 


High mem. 


NON ON 6 Où Où # # # *# * 


RON ee De He Te PO IE AE He ee ee ee ee eee ee ee ee ee ee ee ee 


REL(5) EXITd 
REL(5) EXITP 


* Le code suivant est tiré de la routine 
* INDXSN point d'entrée non supporté 


exit  ST=1 8 
A=DATO 4 


alpha-digit variable flag 
lecture de l'index variable 
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EE 


indx02 


indx04 


indx07 
indx08 


B=A 
P= 
D1=(5) 
C=DATI 
RO=C 

* 
D1=D1+ 
A=DATI 
D1=C 
?C>=A 
GOYES 
D1=D1+ 
D1=D1+ 
D1=01+ 
C=DATI 
?B=C 
GOYES 
D1=01+ 
CD1EX 
GONC 
P=P-1 
P= 


17A! 

=RANGE 

3 

indx02 

8 Simple chr. alpha-digit 

A 

1 

WP 

o 

=FORSTK 

A 
Sauveg. du haut de La pile 
FOR NEXT 


un 


A * Le bas de La pile F/NEXT 


ä Fin de recherche ? 
indx07 

16 

16 

5 

A Lecture de La variable 
WP ok ? 

indx08 


indx04 B.E.T. 
=> carry=0 


0 


* Fin de INDXSN 


exit01 


exit10 


GONC 
RO=C 
D1=01+ 
AD1EX 
D1=(5) 
DAT1=A 
D1=D1+ 
DAT1=A 


D1=(5) 
C=DATI 
D=C 


P= 
?ST=1 
GOYES 
P= 
CPEX 
DC=D0- 
DO=D0- 
A=0 
A=DATO 
B=A 


__ JPC 30 Page 50 


efwo 

sauvegarde de La variable 
Es D1 à bas de entry 

Efface toutes Les entrées 
=AVMEME précédentes 


À . 
(=FORSTK) - (AVMEME) 
À . 


=PRGMEN D[A] prêt pour TKSCN7 
À . 


= . 

3 

8 variable alpha-digit ? 
exit01 

- 

15 

2 pour tXWORD et Lex 1D 
& DO à long. octets 

A 

B Long. ligne 

A 





ADOEX 


A=A+B À pointe EOL ou à 
DO=A 

P= 0 

LC(2) =tNEXT . limite ? 


GOSBVL =TKSCN7 
GOC exit02 
LC(2) =eFnoNX 
GOVLNG MFERR 
exit02 P=C 15 

A=RO restaure nom variable EXIT 

DO=D0+ 2 variable courante NEXT 

C=DATO WP 

2A#C WP 

GOYES exit10 

DO=D0- 4 

A=0 À 

A=DATO B 

CDOEX 

A=A+C A 

DO=A 

GOVLNG =RUNRTN 


token trouvé 
efwo 


essai Le prochain NEXT 


AlB]= long. stmt 


END 


LEX PPOLL ET DEMANDES DE SERVICE 
SUR LA BOUCLE HPIL 


Le module HPIL du HP71 fait de cette machine Le 
plus puissant contrôleur de boucle  HPIL 
actuel lement disponible. Cependant, il ÿ 
manquait quelques fonctions pour être réellement 
complet, justifiant ainsi l'écriture du Lex PPOLL. 


Avant d'en détailler 
qu'il n'est pas inutile de 
possibilités offertes par le protocole hpil 
gérer Les demandes de services. 


Les fonctions, je crois 
rappeler Les 
pour 


Comme chacun sait, les messages HPIL sont codés 
sur 11 bits: 3 bits de contrôle définissant le 
type de message ( donnée, commande, synchro, 
identification) suivis de 8 bits de données. 
Dans le cas des messages de données et 
d'identification, un bit de contrôle est 
disponible pour permettre aux périphériques de 
signaler une demande de service. Ansi lorsque le 
contrôleur communique sur La boucle, il peut se 





rendre compte à chaque message de donnée de la 
présence d'une demande de service et agir en 
conséquence. 


Un problème survient lorsque Le contrôleur est 
inactif et ne communique pas sur La boucle : 
comment se rendre compte de La présence d'une 
demande de service ? Deux solutions sont 
possibles pour le contrôleur : 


- générer pér iodiquement des messages 
d'identification IDY. Ceux-ci lui signaleront la 
présence d'une demande de service. Les 
calculateurs HP de La série 80, l'interface 
HPIB/HPIL, ainsi que La HP41 (lorsqu'elle à 
trouvé une imprimante) utilisent ce mode. Le 
HP71 en est capable, mais il est plus astucieux 
d'utiliser La seconde solution : 


* mettre La boucle dans un mode particulier 
dans Lequel Les périphériques peuvent générer 
leur propre message d'identification de façon 
asynchrone Lorsqu'ils veulent signaler une 
demande de service. Le contrôleur envoie la 
commande EAR (Enable Asynchronous Request) pour 
valider ce mode. Lorsqu'il veut reprendre la 
direction des opérations, le contrôleur doit 
s'assurer que La boucle est revenue en mode 
synchrone, ceci se fait généralement par l'envoi 
d'une série de messages NOP. 


Le HP71 gère Le mode asynchrone, bien que ce 
point soit peu décrit dans La documentation. 
Voici un exemple : 


ON INTR GOTO SERVICE! 

IDORS':  ENABLE INTR 8 ! valide intr sur SRQ 
SEND CMD 24 ! envoie EAR 
OFF 
STOP 

ISERVICE':DISP "SRQ reçue !!! à BEEP 
| traitement de La demande de service 
GOTO ‘'DORS! 


Le  HP71 se réveille à La réception d'une 
demande de service (par exemple lorsqu'un modem 
a détecté un appel), La traite, puis se rendort. 


A ce point, le contrôleur a La possibilité de 
prendre connaissance de La présence d'une 
demande de service. Si plusieurs périphériques 
sont susceptibles de demander un service, le 
contrôleur doit tout d'abord identifier le 
demandeur . IL peut le faire en interrogeant 
successivement l'octet d'état de chaque 


périphérique : c'est Le ‘serial polling' 
(SPOLL), ou il peut interroger simultanément 
jusqu'à 8 demandeurs potentiels : c'est le 
‘parallel polling' (PPOLL). 


L'interrogation parallèle se fait en envoyant 
un message d'identification IDY 0. Les 
périphériques demandeurs peuvent, en plus de 
lever Le bit de demande de service, modifier un 
des 8 bits de données disponibles. La mise en 
oeuvre de l'interrogation parallèle se fait donc 
en assignant chacun des bits à un ou plusieurs 
périphériques grâce aux commandes PPE (Parallel 
Poll Enable). 


DESCRIPTION DU LEX PPOLL 
- PPOLL 


- syntaxe : 100 P=PPOLL 
100 1F BIT(PPOLL,3) THEN 'DEVICE3! 
- messages envoyés : IDY 0 
- retourne La réponse à une interrogation 
parallèle sous La forme d'un octet (0-255). 
Les périphériques doivent avoir été configurés 
par Les commandes PPE (commandes 128 à 143) 


Exemple : SEND UNL LISTEN 1 CMD 136 
SEND UNL LISTEN 3 CMD 137 


assigne Le bit O0 (PPE1,0) au périphérique 1 et 
Le bit 1 (PPE1,0) au périphérique 3. 


- SRQ 


- syntaxe : 100 S=SRQ 
100 IF SRQ THEN SERVICE! 
ELSE "ATTEND! 
- messages envoyés : IDY 0 
- retourne 0 si aucun périphérique ne 
demande de service 
- retourne 1 si au moins un périph. demande 
un service 


+ NLOOP 


- syntaxe : 100 N=NLOOP 
100 FOR 1=1 TO NLOOP 

- messages envoyés : aucun 

- retourne Le nombre de périphériques sur 
la boucle 

- Le résultat n'est valide que si le 71 
est en mode d'adressage simple (flag -22 baissé). 
Cette fonction n'envoie aucun message, elle ne 
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PS 


fait que retourner La valeur conservée par 
l'interface. Cette valeur est actualisée Lors de 
l'auto-adressage de La boucle, par exemple lors 
d'un RESTORE 10. 


Exemple : 


RESTORE 10 

DISP “Device Aid Id" 

FOR 1=1 TO NLOOP 

DISP USING "2(30,4X),K";:1,DEVAID(I),DEVID$(1) 
NEXT I 


- SLEEP 


- syntaxe : 100 SLEEP 

- met Le 71 en sommeil Léger, diminuant la 
consommation dans un facteur de l'ordre de 50. 
Les causes provoquant Le réveil du 71, et la 
poursuite du programme sont : 
* Les 3 timers hardware (différents des 3 
timers software ON TIMER# qui se partagent en 
fait Le même timer hardware) 
* Le HPIL 
* Le clavier 
* autres ... 
Le 71 utilise Les timers hardware pour ses 
propres besoins. Toutes Les minutes, un des 
timers interrompt Le 71 (et éventuellement Le 
réveille) pour lui faire penser à vérifier le 
bon état des batteries. De même, La gestion du 
clignotement du curseur est assurée par des 
interruptions timers. 
CES INTERRUPTIONS  REVEILLENT LE 71 ET 
PROVOQUENT DONC LA SORTIE DE L'INSTRUCTION SLEEP 1! 


Un programme utilisant l'ordre SLEEP se 
présente sous la forme : 


ON TIMER #1,7T1 GOSUB 'IRQTIM!' ! interruption timer 
ON INTR GOSUB 'IRQIL!' ! interruption hpil 
ENABLE INTR M ! déf. Le masque d'interruption hpil 
| éventuellement, envoyer EAR si le 
1 71 est contrôleur 
| et veut surveiller Les demandes 
! de services 
IDORS': SLEEP 
K$=KEYS$ 
IF K$="#! THEN ‘DORS'! 
| traitement du clavier 
GOTO 'DORS! 
! 


"IRQTIM!': | traitement du timer 





RETURN 

! 
tIRQIL!: | traitement du HPIL 
ENABLE INTR M 


RETURN 


La mise en sommeil léger par SLEEP a par 

rapport à La mise en sommeil profond (OFF) Les 

avantages suivants : 

* possibilité de gérer le clavier 

* possibilité d'afficher un message (ou un menu) 

* grande vitesse de réponse aux demandes de 
services hpil et aux timers. 


Exemple d'utilisation de l'ordre SLEEP : 


Le programme suivant affiche l'heure et la date 
à La façon de La fonction CLOCK de La HP41. Si 
vous assignez CALL CLOCK' à La touche gATIN par 
DEF KEY :#155!,'CALL CLOCK': 

la similitude sera (presque) parfaite. La 
pression d'une touche quelconque (y compris 
ATTN) provoque Le retour du HP71 à son contexte 
antérieur. 


10 ! --- CLOCK --- 


20 POKE "2F441", "Fu 


30 ON TIMER #1,1 GOTO 40 
40 DISP CHR$(13); DATES; " 
50 SLEEP 

60 KS=KEYS à IF K$="" THEN 50 ELSE PUT K$ 
70 OFF TIMER #1 

80 DISP 

90 POKE "2F441", 10" 


": TIMES; 


Note : Les trois fonctions acceptent un numéro 
de boucle optionnel. 
ex: SRQ(2), PPOLL(3) 


Jean-François GARNIER 


LEX PPPOLL° 
ID #E1 
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eXWORD 
bLEX 
LEXPIL 
BSERR 
FNRTN1 
1/OFND 
HDFLT 
SNAPBF 
FUNCDO 
GETLPS 
PUTC 
GET 
ERRORX 
OUTELA 
NXTSTM 
SLEEP 
CKSREQ 


NLOOP 


PPOLL 


SRQ 


om 


MSG 
POLL 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
ENDTXT 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


NIBHEX 
GOSUB 
CON(5) 
GOC 
LC(4) 
GOSUB 
A=C 
GONC 


NIBHEX 
GOSUB 
A=C 
GONC 


NIBHEX 
GOSUB 
CSR 


0 

0 
NLOOP 
#F 
PPOLL 
#F 
Sleep 
#D 

SRQ 

#F 
INLOOP ! 
62 
'PPOLL! 
63 
'SLEEP! 
64 
SRQ! 
65 


#23 
#BFC 
#FF 
#0939A 
#0F216 
#1188A 
#1831B 
#2F7F0 
#2F8BB 
#1D15 
#6B1C 
#6751 
#342C 
#05303 
#0BA4S 
#006C2 
#00721 


801 
JUMPER 
GETLPS 


cherche La boite 
au lettre hpil 


err 
#0100 
SEND 
A 
SRQ1 


801 
SIDY 
B 
SRQ1 


801 
SIDY 
A 


erreur ? 

demande Le 

nombre de périphériques 
résultat 

B.E.T. 


envoie IDY 0 
résultat du ppoll 
B.E.T. 


envoie IDY 0 


SRQî 


SIDY 


SEND 


err 


LC(1) 
A=A&C 
GOSBVL 
DO=(5) 
C=DATO 
CDOEX 
C=A 
GOVLNG 


GOSUB 
CON(5) 
GOC 
LC(4) 
GOSUB 
CON(5) 
GOC 
GOSUB 
CON(5) 
GOC 
A=0 
RTNCC 


GOSUB 
CON(5) 


A 
p 
1 
P 


HDFLT 
FUNCDO 
A 


“ 
FNRTN1 


JUMPER 
GETLPS 
err 
#1E00 
JUMPER 
PUTC 
err 
JUMPER 
GET 
err 

A 


JUMPER 
ERRORX 


(P=0) 


isole bit SRQ 
convertion en flottant 


restaure DO 
résultat 
fin 


cherche La boite 
au lettre hpil 
erreur? 


envoie La commande 
au processeur d'e/s 
erreur? 

recoie La 

réponse 

erreur? 

initialise A pour 
la suite 


* ERRORX n'est pas une routine supportée 
* mais est valable pour les ROM versions A & B 


KRHRAMNMRMÉRRRÉARÉRÉRREMMERMRÉMUÉRRMRRRÉRÉMÉÉRÉRRRRÉRIRR 


OÙ ON Où #  # *# * 


NOTE DE LA REDACTION : La routine ERRORX est 
recopiée dans Le Lex MMLEX de Michel MARTINET 
sous Le label [erreur]. Dans l'avenir, il nous 
semblerait judicieux de rassembler tous Les Lex 
traitant de La boucle d'interface dans un seul 
pour éviter d'être obligé de recopier à chaque 
fois Le traitement des erreurs et La routine 
JUMPER (accès au routines internes de La ROM 
HPIL). 


RRRRRRRRÉRRÉRMÉRRRRRRRRRRRÉRRRRRRRRRRRRRARRRMMRMRRARÉÉ 


Sleep 


REL(5) Sleepd 
REL(5) Sleepp 
CDOEX 

RO=C 

CD1EX 

R1=C 

GOSBVL SLEEP 
GOSBVL CKSREQ 
C=R1 

D1=C 

C=RO 

DO=C 

GOVLNG NXTSTM 


sauve DO 
et Di en 
RO et R1 


en sommeil léger 
traite Les SRQ 


restaure D1 


et 
DO 
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Sleepp RTNCC 


Sleepd 


JUMPER 


JUMPO5 


JUMP 10 


JUMP 20 


JUMP90 


JUMP 30 


RO PR es tee 


GOVLNG 


RSTK=C 
CD1EX 
D1=(5) 


parse: rien 
OUTELA  décompile: rien 


SNAPBF 


DATI=C A 


Di=(2) 
C=RSTK 
DAT1=C 
D1=(4) 
DAT1=A 
D1=(2) 
C=B 
CPEX 


C=C-1 
DAT1=C 


(SNAPBF +5 


W 

(SNAPBF )+21 
W 
(SNAPBF)+37 
A 

5 

6 

p 

JUMPO5 


p 
7 
re) 
p 
8 


SETHEX . 


p= 
LC(3) 
GOSBVL 
GONC 
LC(2) 
B=C 
A=0 
=A+1 
C=DAT1 
?2C=0 
GOYES 
?2B#C 
GOYES 
CSR 
CSR 
?A<C 
GOYES 
CSR 
CSR 
C=C-A 
GONC 
D1=01+ 
GONC 
LC(4) 
GOVLNG 
D1=01+ 
C=DAT1 
B=C 
C=RSTK 
D1=C 
D1=D1+ 


0 

bLEX 
1/OFND 
JUMP90 
LEXPIL 


Dm oo > > >» 


JUMP90 
B 

JUMP 20 
W 

A 

B 
JUMP20 
A 

A 

B 
JUMP30 
11 
JUMP 10 
eXWORD 
BSERR 
6 

A 

à 


5 


JUMP50 


JUMP60 


CD1EX 

RSTK=C 
C=DAT1 
C=C+B 

RSTK=C 
D1=(5) 
A=DAT1 
D1=01+ 
C=DATi 


C=C+1 
GOC 
SETDEC 
P= 
?2C#0 
GOYES 
P=C 
D1=(4) 
C=DAT1 
D1=(2) 
RSTK=C 
C=DAT1 
D1=C 
C=RSTK 
RTN 


END 


(SNAPBF )+21 
4 

16 

8 

A 

7 

p 

JUMP50 


6 

p 

JUMP60 

5 

(SNAPBF )+5 
W 

SNAPBF 





LE COIN DES LHEX 


Au programme en ce début d'année, six LHEX: 


KEYWAIT KEYWAITS 82001 
EDLEX DELETE# 240001 
EDPARSES 240007 
EDTEXT 240002 


FILESZR 240003 
INSERT# 240004 
REPLACE# 240005 


SEARCH 240006 
SCROLL 82002 
MSG$ 82003 
MMLEX MAXD 225057 
MAXM 225058 
MEMD 225059 
MEMM 225060 
ASFLEX (POLL pKYDF) 
EXITLEX EXIT 225061 
PPOLL NLOOP 225062 
PPOLL 225063 
SLEEP 225064 
SRQ 225065 


BONNE ANNEE 
Heureuse programmation à tous 
Michel MARTINET 


PROGRAMME MAKELEX 


10 CALL MLEX 
à SUB MLEX Q SFLAG -1 @ PURGE AH Q INPUT "Nb. d'octets: ":N à LC OFF 
20 CREATE DATA AH,1,N-4 @ A=HTD(ADDRS(!'AH")) à B=A @ GOSUB 130 
30 Q=1 à X=0 à INPUT "000: ",P$:A$ à C$=A$ à S=0 à GOSUB 90 
40 Q=2 à X=1 à GOSUB 80 à AS$S=AS&CS Q A=A+37 à N=N*2+37 
à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=CS[I5*FLAG(5)+1] à POKE DTH$(A),C$ 
à A=A+16-5*FLAG(5,0) à NEXT X Q Q=4 
60 DISP DTH$S(X)(3)1;: à INPUT ": ",P$[1,MOD(N,16)];C$ à GOSUB 90 
70 POKE DTH$S(A),C$ à POKE DTH$(B),A$ à CFLAG -1 à END 
80 DISP DTHS(X)[3]; Q INPUT ": ",P$;C$ 
90 DISP DTHS(X) [3]; à INPUT # sm ","---1-D$ 
100 M=S à FOR Z=1 TO LEN(C$S) @ M=NUM(CS[Z])+M+1 à NEXT Z 
110 IF D$=DTH$S(MOD(M,4096))(3] THEN GOSUB 130 Q S=M à RETURN 
120 DISP "Erreur de somme! à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 
130 Ph=zl-mmssmmmsssns. 1 à RETURN 
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KEYWAIT 


000: 
001: 
002 
003: 
006 : 
005: 
006: 
007: 
008: 
009: 


EDLEX 


000 
007 
002 
003 
004 : 
005 
006: 
007: 
008: 
009 
00A: 
008: 
00C: 
00D : 
OCE : 
00F : 
010: 
011: 
012 
013 
014 
015 
016: 
017: 
018: 
019: 
01A: 
01B: 
01C: 
012: 
01E: 
01F: 
020: 
021: 
022: 
023 
024: 
025: 
026: 
027: 
028: 
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0123456789ABCDEF 


B454957514944502 
802E001041111058 
3700025101000000 
F710000000000000 
0E1000FFB4549575 
14944542101FF001 
361081371098F2C6 
0045111913511813 
48D8ACA18F 127006 
BDF 


ID#FO 2557 
0123456789ABCDEF 


5444C45485020202 
802€ 002041111058 
FF3100F107031310 
FD400CB00F910000 
04A200D2208E 100D 
130CE100F2400920 
00150EB8200026076 
800FF003FE00FB44 
54C454455410F544 
4051425355442708 
54444554854520D6 
494C45435A525308 
94E43554254540D2 
55405C4143454508 
355414253484601F 
F108001504C496E6 
5602CC010254F666 
CF12088344454648 
494C4D405253545C 
D0301F302D60C314 
OEAE4E616D656A3C 
E0603340646A3CB2 
70AF4B40247F6024 
456C65647656F302 
95F2E4A3CCO80295 
E415C9190ECE734D 
6460235472776CA1 
A0975F627B696E67 
6E2E2E2CE080344F 
6E656CFF96950503 
1181351121c81378 
B6A11351083814A3 
4544540215D80031 
E296140003410000 
8A240006E 8224500 
393008DEAD814111 
36068FDD41074808 
FS98904C27FC18F8 
3D80137C21357390 
33A300854F2F6DA6 
C207C708F36F9047 


ID#52 55 octets 


sm 


366 
6AB 
9CE 
CFC 
087 
3E7 
757 
A93 
E2F 
EFE 


octets 


029: EDOCC10113374358 2E2 


02A: 
02B: 
O2C: 
020: 
Q2E: 
02F: 
030: 
031: 
032: 
033 
034: 
035: 
036: 
037: 
038 
039: 
034: 
038: 
03C: 
03D: 
03E: 


©O 
un 
LN 
.… 


056: 
057: 
058: 
059 
O5A: 
058: 
05C: 
050: 
05E: 
05F: 
060 
061: 
062: 
063: 
064 : 


&&8AE1D0110E47C71 
8F8138186450BCC0 
41CF15178F8A4100 
71368DC32F088400 
3540084B8596D304 
A400444008588496 
9208D8B8B818D10FA 
170F16301A7400A1 
4008488498F53410 
1F678F28FF237178 
CF72411750074467 
D655DB1F678F28F3 
F271879371C41417 
DAO8F13DB0AF1D88 
101371F995F2CA14 
1134183D48F42A71 
1583E581DESCS5CS51 
C4143C0141E01318 
F261811F178F2143 
1748F3F2711011FF 
69F214877835018A 
E823363005F1AC48 
F08371421A4F462A 
4F40278E380A9390 
16173EE871F08DE4 
5918780813706132 


: 86B40DAEE 1081F69 


8F214713517C1477 


: 7AE7F3105B00507D 
: 947AIFFÉ9F21438F 


7541117F17414307 
E217F17214517514 
7113CA1418F53410 
BC66FOAF2AF0E610 
936575840110814A 
311F966C3160142F 
416410114A311F96 
6C116115A3103119 
88E0133800002111 


: 1031117527101113 
: 78171031337A7010 


A7CD257082103173 


: 13312311A74C2137 
: 1354607A431B688F 


2144DB068FE3F801 
181FF85F21451350 
7077A1310808068F 
718608FDA6701351 
731375CC8FD1F60D 
7174137111018D20 
F203F4C544445548 
5453F8F124501361 
B898F21441641331 
401341318F5CC304 
CB8FE7A204607801 
18898F2146164142 
13413174308FDC63 
05C0859732056078 
00318F68A078A079 


67A 
A20 
DA8 
131 
4A& 
80F 
BBF 
F26 
298 
63C 
9co 
D7F 
0F6 
4BF 
85E 
BD8 
F7B 
èE5 
66E 
9FA 


065: 
066: 
067: 
068 
069: 
06A: 
06B: 
06C: 


ë 


06E : 
06F 
070 
071: 
072 
073: 
078: 
075 
076: 
077 
078 
079 
07A: 
07B 
07C: 
070 
07E 
07F: 
080: 
081: 
082: 
083: 
084 : 
085: 
086 
087: 
088 
089 
08A 
08B: 
08C: 
080: 
08E : 
08F : 
090: 
091 
092 
093 
094 : 
095: 
096: 
097: 
098 
099: 
09A: 
098: 
09C: 
090 : 
09E: 
09F: 
0A0: 


907590311E64908F 
625308F728408F90 
F30873911FB49F21 
58090C907A6059C8 
F740301347E408F4 
60307D7045631229 
62C5307962458FFD 
C201487B50491879 
B031029628031C29 
669C730053A31228 
D8EC208027130800 
963085480B2E2085 
48DF3E208FEA2304 
0054E31D09620080 
29A208588F653304 
4C17174BF7BCF7CA 
F8782A312F966AA8 
FBEC2080D973017F 
8F2295017131C270 
6F8F229501738000 
3503132745F8D394 
508F754111781534 
AC88FE7371400172 
1574AC7A46463170 
14313117FD215F3C 
E8AE5217378BD722 
0500028680031630 
233C3000233F3000 
2CC101AF0CC10084 
7848712040013411 
0E41001198A27587 
80013650DD113588 
F44173137887E315 
838F42A7123A98D9 
B1520400DD81EE6C 
6c6133131C288850 
8580385702CD8580 
21C3137847848789 
F40017303760017F 
8F32281400664A88 
884551368E858077 
DF100700F 1904140 
75CF164140101788 
FCC540D084516414 
0CC45085513710A1 
641F698F21471441 
107C6E4A31BFA8F2 
1461969144DB19FA 
1441141371641447 
84148273A05F26BA 
A8AE9F11A1358F8D 
381133846102AF26 
2F0800F8E0184142 
8B29E16E 14607164 
146729E44D878081 
44173137164144D7 
c9C910818E865E01 
4688D81C3C318E 14 
61350578215E 1845 
7900€6144609F185 


5BC 
94A 
CDE 
071 
3EF 
74A 
AE6 
E66 
1E7 
552 
901 
C88 
035 
3A8 
71E 


F01 
283 
60F 
987 
D11 
080 
3F6 
7AE 
842 
E94 
220 
SEE 
95F 
CFE 
095 
410 
77A 
B1C 
EBC 
23C 
58D 





OA: A8F214601AF27DEF 979 000: DE31049665051E31 E56 119: 03124966DA729F1C 25A 


0A2: 7B440410B199BAF2 DOF ODE: E2962CC314296661 1DA 114: 1137135883021483 5CC 
0A3: 146DF111EFEE81E7 0D1 ODF: 11ACECE8B5A0695F 5A7 118: 10296221308962A0 92A 
0A&: C2404DF81EE67F14 483 0E0: 76AE31C596262119 92A 11C: 30c9668D17113713 C99 
0A5: 11BBF2BF2BF2AB6B 860 0E1: 13418114E9625111 C7F 110: 5184144789C30390 008 
OA6: F2BF2BF232800A8F C22 0E2: 9CECE1098B75D6C0 045 11E: 56062AE909606FAE 3AB 
OA7: 2EBF2A3F90A7FA8B 009 0E3: F711E58E6D01F0915 3EB 11F: 7A10634140733030 6F6 
0A8: 0411286660E4E413 371 0E4: 700A170147061741 73A 120: 6300400040406307 A2B 
0A9: 11CF15571B0C8F21 705 0E5: 4707174147D51741 AAE 121: 110D1A88c5C91341 DBO 
DAA: 421308CD28F8468F A9E 0Eé: 4717487900109038 E02 122: 4A090E66968D1D28 149 
OAB: 13D8013713518898 E22 0E7: D4BCE0848D113713 1A6 123: 22E681C8328F1108 4C9 
OAC: F2144C210A8A8001 19C 0E8: 58880010C11483102 519 124: 16ACA1008F156811 84A 
OAD: 3418114A31C5966F 51A 0E9: 9628E87BD030C858 8C1 125: 291CB15D811A1C81 BF1 
OAE: 21811331311368BE 878 OEA: 9628DE58F670B15E C70 126: 5DB1181C815D8118 F9C 
OAF: 0013414A31C5962F BEC 0EB: 2E531E2962003039 FD7 127: 1C114DF6F610C114D 340 
080: O11ACECE10A85618 F97 0EC: 6200E530B96200E5 349 128: 3038121C114D1B88B 6C6 
081: 495F2142D23151CA 31C 0ED: 31F396200E502727 683 129: 8F21461641428F40 A35 
082: 1000384B84078713 67E OEE: OB4AAE6AF5137135 A4C 12A: 1B11B6B8F2146134 DB7 
083: 1C59668316114A31 9F3 0EF: 88BF31C114B8F670 DF8 128: 8408D78181098D62 153 
084: 429661316113211A D43 OF0: 814C281181190980 16C 12C: 4208118E7C6F8EEE 50D 
085: 96632118868708A7 0C8 OF1: 7BO0AF5D4AE84DC3 535 120: 5F570831E2001000 87C 
086: 00D710903793131C 428 OF2: 8939393939393021 8A2 12€: 417F8F625308FA05 C10 
087: 596644D413016114 786 OF3: 717D010AF49765085 C29 12F: 21FE8FC2890723D8 FC4 
0B8: A31C5962E4E5E572 B2A OF4: A7ADF9FASOAFAD16 014 130: D608908FFACE0346 379 
089: 218606487BE17A01 EAS OF5: 98F3F03030303030 373 131: 520098E3C1008F4F 719 
OBA: 31E5966A18750085 218 OF6: 3030303411136186 6B8 132: 4F48BE4B8F943811 ACE 
08B: BESE55268600279E 5B3 OF7: B8F2144137108332 A29 133: 18AD2CA740940A25 E62 
0OBC: 031E296205304962 90C OF8: 00F1088FA0521FE1 DBB 134: 203000000F020000 18F 
0BD: 843104962F37BC03 C89 OF9: 8109F27790118135 133 135: 0000000800D3000D 4DC 
O8E: 1C59622311A88580 002 OFA: 8F83D80137134D68 4C7 136: 00036FFFF7D43574 87F 
OBF: DB617F11B8888000B 3C2 OFB: F992101E888F1411 861 137: 42308353425F4C4C CO4 
0C0: 13414E962F087B00 73C OFC: 741411318F771811 BC8 138: 4201FF8DE6A20E04 FAA 
0C1: E7E761EF85777204 ADE OFD: 3618995F2144737F F53 139: FF4FFFF8ED6FE681 383 
OC2: 6187800E7E711B8B E7C OFE: 10910A10BAC23302 2C0 13A: F08F156811438E70 738 
0C3: 8005480380044908 1FB OFF: 021088F064A10885 62A 138: 5FCC540D0D1AE81B AFC 
OC4: D2D2811371351108 568 100: B747E87AC17CA2E8 9F1 13C: 374F214AD231F586 E95 
0C5: B66E10C41191451C4 8F0 101: 04307205802019C0 D3D 130: 29E140D9AEA34084 231 
0Cé: D91451C4DB145877 C85 102: OCOC0C11880FF667 0D7 13E: F2C2C213414E96E9 5D2 
0C7: B0119D7CFCF8471C 046 103: 01188DBA990741FA 475 13F: OCC57EDO0O1AC74F14 988 
0C8: 4071451C00915501 394 104: E6AFA101850772E8 814 140: 8183146088410814 CED 
0C9: 1810911A88582DB1 724 105: 7A0D726289147076 B8B 141: 48FE21208D84A80 049 
OCA: 0963B0E5E5D41301 AA9 106: 0830880F7087A381 F1D y 

0CB: 4A03870708500184 E01 107: 038527DFD909C130 2AD * MMLEX ID#E1 526 octets 
OCC: 00373EF31C596632 17F 108: 590581874317E107 614 

OCD: 72DF11A885A0CFCF 557 109: 3ED90D6067511182 992 0123456789ABCDEF sm 
OCE: 6C6031C59626073C 8D6 10A: F307108206E91D88 D16 

OCF: F8609331E2966E01 C5C 108: 11811110AE8D4100 078 000: D4D4C45485020202 373 
000: 19887C3623031049 FC9 10C: 854037A8EAE6AFAT 439 001: 802E006041111058 6BD 
0D1: 666068A03142966E 33E 100: 028517D9D3049010 786 002: 024001E93C300000 A0B 
002: 0119887316320D81 680 10E: 3985888FAA251181 B55 003: F230000000000000 D36 
003: 3414E962908496EF A41 10F: 09F2D831142B14A9 EDE 004: OCCO00FB0044100F 0B3 
004: 0E5E511A8852108E DF5 110: 6045E61610050F11 251 005: 610F2100F120A110 40F 
005: 6E610985962E0E7E 194 111: 8AE92F3044A87D8F 60D 006: 0F7D4148544937D4 799 
0D6: 71198B860682F793 52B 112: 725D305901CB6F6F 9AE 007: 1485D4A37D454D44 B2B 
0D7: FESES860A2310496 8BD 113: 137135855180C8F2 D2A 008: 4B837D454D4D4C31F ED9 
0D8: 6D011A8890C51E31 C63 114: 1440177EF1841461 096 009: F22D245272820FB1 26A 
0D9: 429665A11A889985 FFA 115: 356D90110AEA1002 40D 00A: 049193BAE 1371087 5E7 
ODA: A931C5966198505E 386 116: 031A4962DDE69626 7A1 008: B92C524050089153 951 
0DB: BE7E71198BB827ESE 74F 117: D710D7141770EEED 84F 00C: 8920388452708226 CAB 
0DC: 511A889F88604378 ADC 118: 1FA1F71F30017111 ECA 000: 8307F12451707219 014 
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00E: 760570884A02480C 383 043: 1D0F061471350701 E9F 00€: 11741411F765F214 409 


00F: 02380C12231FFDAD 721 044: F EE6 00F: 70723878402180FF 792 
010: 6208DA9390011136 A9A 010: 183183D014AD8132 B06 
011: 0677D17E7F703234 E1F 011: C013020314C8F99A E8B 
012: 840479AFB8FC2DE0 1E4 012: 804D031A28039390 206 
013: DAF081C731290440 570 013: 80DF110161156191 569 
014: 472248F8A4100713 8E7 014: 62C183D0014A136CA 8F8 
015: 48F81381118135AF C7C ASFLEX ID#E1 160 octets 015: 1308DAE470F B7A 
016: 68D832F0625F8DD4 028 

017: 490C1184A85B531C 3B2 0123456789ABCDEF sm PPOLL ID#E1 285 octets 
018: 1185A848570C1108 729 

019: 13606745178FE110 AAO 000: 143564C454850202 358 0123456789ABCDEF sm 
01A: DB06D2320F1EA8F0 E52 001: 802E007041111058 6A3 

018: 64A1D68833B810913 1D8 002: 541001E000000000 903 000: 0505F4C4C4020202 368 
01C: 5D007D77381FF440 56A 003: FE0000000800001F D2D 001: 802E008041111058 6B4 
010: 47911187A13D2310 8CF 004: F318196140001B14 096 002: F32001EE31400000 A2 
01E: 3C2135247A417131 C2F 005: 4F2156494AB41A7F 435 003: F230000000000000 D3D 
01F: 7D2186B607800F0F FBE 006: 6F1564A465B3110D 78BC 004: 075000FD00C6000F 082 
020: 0653FD811113117F 334 007: 231718A6F21A689F B50 005: A101E00007207600 414 
021: 247021E810217724 689 008: 1520302D80EF290A EDO 006: OF9E4C4F4F405E39 7CD 
022: 7211E887840D6CC1 A27 009: 70D2450302A09154 22F 007: 0505F4C4C4F3935C B6C 
023: 22DC10387BA0F281 DB9 O0A: O6EB0001A689F15A 5C2 008: 4545405045352515 EB5 
024: E1087C0011387800 131 008: 03020E06908AE1A0 93B 009: 141FF8017EC05101 24A 
025: 66EE111131D47EE0 4C8 00C: 84F32FB0AB514A96 CE7 00A: 04F733001077500A 5BA 
026: FF4404C1E5111131 846 000: 8023102966E0161A 04A 008: 5428017930AEA571 935 
027: 7210112CC4001025 B96 0O0E: 3D58E4F831A29626 3ED 00C: 8017C20F6F6A8A30 CCF 
028: 4D683E34FFFF028D F61 00F: 81108FA0DE031139 77A 00D: 10E068FB813811888 079 
029: 00D40017F1731583 2CD 010: 663A1AE74F14A316 B12 00E: 8F2146136AF68D61 40E 
02A: 8A2648ACE017817F 67B 011: 09EA4131D09EAB03 EB2 00F: 2F07370510104423 76F 
028: 17F5D0878D0113CC A36 012: 1619E6FBE2E61A76 267 010: 300E17160C1B6042 AD8 
02C: 10356E17880C4062 DAB 013: 9F14C16130415C07 5DD 011: 1755015760460D00 E2B 
020: 471600780F4128E2 122 014: 2100202020202020 8FC 012: 37540C2430930002 178 
02E: 12B17759C07012848 480 015: 2020207160144850 C36 013: 3000136108137109 4B3 
02F: DDD41086C6206136 817 016: 82103 D39 014: 8F2C6008F1270011 826 
030: 18244F2156413407 B7B 015: 91351181348D84A8 B9B 
031: 94AC0B4646024020 EEA EXITLEX ID#E1 155 octets 016: 0038030350061371 EE7 
032: 3102247C0011A8F9 25A 017: FOF7F21451D5F071 284 
033: 43B10114F171BF0B 5E3 0123456789ABCDEF sm 018: 5571E508F1517105 606 
034: FOAEAOD880CE0106 993 019: 1D980F526A82550A 995 
035: 1371F0F7F21451D5 DIE 000: 54859445C4548502 368 01A: 0E27A82A0E 150704 D29 
036: F0715571E508F151 09D 001: 802E007041111058 6B6 018: 2032CFB88FA881154 OCF 
037: 71D51D980F526A82 432 002: A31001ED30300000 A1F 01C: 331FFD5D0E415F59 482 
038: 550A0E27A82A0E15 7C2 003: F710000000000000 D4D 01D: 6A1296561BF6F69E 82F 
039: D7042032CFB8FAB8 B7C 004: 0C20000754859445 088 01E: 2C0F6F6B6255117A BCA 
03A: 1154331FFD5D0E41 F11 005: D31FF8DA82508D55 46E 01F: 5AD3332008DA9390 F51 
038: 5F596A1296561BF6 2AD 006: 4302FFFF4FFFF858 850 020: 175147D507135174 2AF 
03C: F69E2COF6F6B6252 665 007: 15A33314A58FC70B BES 021: 13706147C9061F50 61A 
030: 117A5AD333200652 901 008: 1234908480121A98 F56 022: 8F2153717F15F7D05 9B4 
03E: D175147D50713517 D3F 009: 231FE95F21471081 2D3 023: 27806440052690E2 D1A 
03F: 413706147C9061F5 OAE 00A: 741431358BAC117F 65C 024: 080D51E5F7F15771 OAE 
040: 08F2153717F15F7D 443 008: 17F1741479110017 9C9 025: DOF061471350701 3DA 
041: 527806440052690E 7AC 00C: 313750E002059510 D28 

042: 2080D51E5F7F1577 841 000: 81731331F995F214 OA0 
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APPLICATIONS 


| HP41 | P. TENAND | 21 | 13 | Défilement alphanumérique logique | 
| | P. LANGLOIS | 22 | 10 | La rapidité des basics | 
| HP41 | P. DAVASE | 22 | 16 | Accès direct en ROM par STO b | 
| HPIL | L. ANCELET | 22 | 23 | Les messages du module 1/0 | 
| HP75 | DAVID/MARTINET | 22 | 25 | Analyseur de boucle IL | 
| HP71 | J.-J. MOREAU | 22 | 30 | Assemblage sans assembleur | 
| HP71 | WEIL/DAVID | 22 | 44 | FORTH récursif | 
| HP71 | P. DAVID | 23 | 30 | Les buffers du 71 | 
| HP71 | M. MARTINET | 24 | 35 | Le registre HARDWARE STATUS | 
| HP71 | O. ARBEY | 25 | 42 | Débuter en assembleur | 
| HP71 | M. MARTINET | 25 | 48 | Les variables de La MATH Stack | 
| HP71 | M. MARTINET | 25 | 57 | Programmation synthétique | 
| HP71 | J.-J. DHENIN | 25 | 61 | Pour La rubrique débutant | 
| HP41 | P. ANTOINE | 26 | 25 | Inversion du registre C | 
| HP71 | P. GUEZ | 26 | 60 | La X710 et Le PLOTLEX | 
| HP71 | J.-P. BONDU | 26 | 62 | A propos de DISP$ | 
| HP71 | DAVID/MARTINET | 27 | 26 | La décomparse | 
| HP71 | J.-P. BONDU | 28 | 6 | Optimisation | 
| HP71 | J. BAUDIER | 28 | 19 | A propos de PASSWORD | 
| HP71 | S. VAUDENAY | 28 | 36 | Assembleur: Stop/Encore | 
| | A. GILLET | 29 | 8 | Méthode de réalisation d'un programme | 
| HP41 | G. TISSERAND | 29 | 12 | Programmer des XROM avec Le ZENROM | 
| HP71 | F. LEGRAND | 29 | 21 | BEEP tout Le temps (bis) | 
| HP71 | F. LEGRAND | 29 | 22 | 1/x à l'échappement | 
| HP71 | M. MARTINET | 29 | 28 | Remise à jour des LEX | 
| HP71 | J.-J. DHENIN | 29 | 29 | Accès aux variables à partir d'un programme binaire | 
| | A.GILLET | 30 | 6 | Le dossier de programme | 
DUR ET MOU 
| HPIL | L. ANCELET | 21 | 10 | Carte Modem | 
| | P. DAVID | 21 | 12 | Du nouveau chez HP | 
| HP71 | P. ANTOINE | 23 | 8 | Module AC pour 71 | 
| HP71 | P. ROMASCANO | 23 | 9 | Module de traduction HP71-HP41 | 
| HP71 | R. OUVRAY | 25 | 60 | Anomalies du calendrier | 
| HPIL | E. GENGOUX | 27 | 10 | Renforcement alimentation unité de disquette HP9114 | 
| HP41 | HP/GUEZ | 28 | 11 | Module HP41 Advantage | 
| HP71 | M.MARTINET | 30 | 3 | Augmentez La mémoire de votre HP71 | 
| HPIL | P. DAVID | 30 | 4 | Les interfaces vidéos HPIL | 
PROGRAMMES 
| HP41 | P. DAVID | 21 | 14 | F1 (course) | jeux | RPN 
| HP41 | G. TISSERAND | 21 | 18 | Les tours de Hanoï | jeux | RPN 
| HP41 | J.-P. TOYRE | 21 | 21 | Traductions Hyerogliphes | divers | RPN 
| HP41 | A. OISEL | 21 | 24 | XA & AX (X«=»ASCII) | appli. | RPN 
| HP41 | J.-J. MOREAU | 21 | 25 | spinvs | jeux | RPN 
| HP15 | D. SAADA | 21 | 27 | Générateur de nombres aléatoires | math. | RPN 
| HP15 | D. SAADA | 21 | 27 | Fonction GAMMA | math. | RPN 
| HP15 | D. CONNAN | 21 | 27 | Méthode du simplexe simpliste | math. | RPN 
| HP75 | F. BARNAUD | 21 | 29 | Matrices | math. | BASIC 
| HP71 | M. MARTINET | 21 | 31 | Fonctions de manipul. de chaînes | appli. | Assembleur 
| HP71 | S. VAUDENAY | 21 | 35 | Histoire de Startup | astuce | BASIC 
| HP71 | J.-P. BONDU | 21 | 35 | Récréation | jeux | BASIC 
| HP71 | P. LANGLOIS | 21 | 35 | Codage en mémoire | appli. | BASIC 
| HP71 | S. VAUDENAY | 21 | 35 | Matrices | math. | BASIC 
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| HP71 | 
| HP41 | 
| HP41 | 
| HP75 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP41 | 
| HP41 | 
| HP41 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP41 | 
| HPé1 | 
| HP41 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HPé1 | 
| HP41 | 
| HPé1 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HPé1 | 
| HP41 | 
| HP41 | 
| HP41 | 
| HP41 | 
| HP41 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 
| HP71 | 


V. HERLICQ 

A. PIERARD 

A. PIERARD 
DAVID/MARTINET 
L. ISTRIA 

M. MARTINET 
J.-J. MOREAU 
J.-P. BONDU 

O0. ARBEY 

P. LANGLOIS 

M. CLABOT 

J.-J. DHENIN 

L. ISTRIA 

M. MARTINET 

S. BARIZIEN 
IST./MART./DAV. 
P. DAVID 
DAVID/MARTINET 
M. MARTINET 

M. MARTINET 

D. JACOB 

J.-C. FOURES 

P. DAVASE 

S. VAUDENAY 
J.-J. MOREAU 

G. TISSERAND 

M. CLABOT 

J.-J. DHENIN 

M. MARTINET 

P. DAVID 

J.-P. BONDU 
J.-J. MOREAU 
J.-C. FOURES 
J.-C. FOURES 

F. BARNAUD 

M. WEIL 

S. VAUDENAY 

C. JEGOUZO 

D. CASTELAIN 
PETERSEN/PPCDEN 
J.-J. MOREAU 
J.-P. BONDU 

L. ISTRIA 

M. MARTINET 

M. MARTINET 

S. VAUDENAY 

X. BILLE 

P. DAVID 

S. VAUDENAY 

P. COLLIGNON 

P. LANGLOIS 

P. ANTOINE 

C. MORLOT 

C. MORLOT 

C. MORLOT 
J.-J. MOREAU 
M. MARTINET 
J.-J. DHENIN 
O0. ARBEY 
P. DAVID 
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21 
22 
22 
22 
22 
22 
22 
22 
22 
23 
23 


Ci Ci Où Di Ci © D Di D Di D 


24 
24 
24 
24 
24 
24 
è4 
24 
24 
24 
24 
24 
25 
25 
25 
25 
25 
25 
25 
25 
25 
25 
25 
25 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 


36 
19 
19 
25 
30 
32 


49 
50 
12 
13 
15 
32 
34 


37 
37 
38 
39 
47 
49 
49 
50 
50 
10 
17 


30 
30 
33 
35 
37 
46 
46 


47 
47 
18 
26 
29 
43 
47 
50 
52 
57 
61 
63 


65 
16 
20 
21 
22 
23 
25 


33 
34 
37 
39 


Graphique sur 71B 

Affichage des données ASCII 
Caractères spéciaux sur 41CX 
Analyseur de boucle (SCOPE) 
Contraste? 

Désassembleur 

Intégrales 

Matrices 

VALPROP (Matrices) 

Routines complexes 

Biorythmes 

Le PANAME ROM et La VIDEO 
Interception de POLL 

REPLACES 

FILE? 

PEEK/POKE partout 

BIP tout Le temps 

ATTN 

Manipulation de chaînes alphanum. 
Chainage de fichiers LEX 
Intégration numérique de Gauss 
Utilitaires 

Visualisation de La RAM 
Débilomètre 

Matrices 

Monaco 

Vos impots en 85 

PLOTLEX 

DRIVELEX 

CURLEX 

FKEY 

Graphisme sur HP71B 

LOTO 

Devinez le nombre 

Méthode de Romberg 

Listage de catalogue 

Récifs 

HP41 et récursivité 

Ordinateur de bord 

proposition d'1 standard MC en CB 
ENDUP 

Pile CMDS à 16 niveaux 
Combinaison arrangement (COMBARR) 
Heure minute seconde (HMS +, -) 
Pile CMDS à n niveaux (STKLEX) 
Musique 

Master mind ammélioré 

D.A.0. 

Hantise sur Saturne 
Transformation étoile-triangle 
taille du catalogue cassette 
MAJMIN et MIN 

MAJ-MIN 

Balistique 

TI-COR 

REPEAT 

MARGIN 

MENU 

PRIMLEX 

PRINTLEX 


divers 
appli. 
appli. 
appli. 
appli. 
divers 
math. 
math. 
math. 
math. 
jeux 
appli. 
appli. 
divers 
divers 
divers 
divers 
divers 
appli. 
divers 
math. 
divers 
divers 
jeux 
math. 
jeux 
divers 
divers 
divers 
divers 
divers 
divers 
jeux 
jeux 
math. 
appli. 
jeux 
appli. 
divers 
divers 
divers 
divers 
math. 
math. 
divers 
jeux 
jeux 
jeux 
jeux 
élect. 
divers 
appli. 
appli. 
divers 
divers 
divers 
divers 
divers 
math. 
appli. 


BASIC 

RPN 

RPN 

BASIC 
Assembleur 
ASS/BASIC 
BASIC 
BASIC 
BASIC 

RPN 

RPN 

RPN 
Assembleur 
Assembleur 
Assembleur 
Assembleur 
Assembleur 
Assembleur 
Assembleur 
BASIC 
BASIC 
BASIC 
BASIC 
BASIC 

RPN 

RPN 

RPN 
Assembleur 
Assembleur 
Assembleur 
Assembleur 
FORTH 
BASIC 
BASIC 
BASIC 
BASIC 
BASIC 

RPN 

RPN 
assembleur 
Assembleur 
Assembleur 
Assembleur 
Assembleur 
Assembleur 
BASIC 
BASIC 
BASIC 
BASIC 

RPN 

RPN 

RPN 

RPN 

RPN 

RPN 
Assembleur 
Assembleur 
Assembleur 
Assembleur 
Assembleur 








HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP41 
HP41 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP41 
HP41 
HP41 
HP71 
HP71 
HP71 


HP71 - 


HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP41 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 
HP71 


J.-J. MOREAU 
J.-J. DHENIN 
MARTINET/DAVID 
J.-M. SIMON 
L. ISTRIA 
J.-C. FOURES 
L. SERANO 

L. SERANO 

X. BILLE 

C. JEGOUZO 
C. JEGOUZO 
MORANDO 
F.B.1. 

P. DAVID 

M. MARTINET 
J.-C. FOURES 
O0. ARBEY 

X. BILLE 
J.-C. FOURES 
M. WEIL 

M. MARTINET 
F. POUPON 

F. POUPON 

F. POUPON 

M. WEIL 

J. BAUDIER 
J. BAUDIER 
J.-P. BONDU . 
«+ VAUDENAY 
A. HERREMAN 
A. HERREMAN 
L. ISTRIA 

S. VAUDENAY 
S. VAUDENAY 
L. ISTRIA 
M.MARTINET 
C. JEGOUZO 
J.-P. TOYRE 
J.-J. DHENIN 
PPC DANEMARK 
F. LE GRAND 
M. WEIL 

M. MEIL 

P. GUEZ 

P. DAVID 

A. HERREMAN 
A. HERREMAN 
M. MARTINET 
BARIZ/DAV/MARTI 
J. TAILLANDIER 
J.-+F. GARNIER 


26 
26 
26 
26 
26 
26 
26 
26 
26 
è7 
27 
27 
e7 
4 
e7 
27 
e7 
è7 
27 
27 
27 
28 
28 
28 
28 
28 
28 
28 
28 
28 
28 


28 


28 
28 
28 
28 
29 


29 
29 
30 
30 
30 
30 
30 
30 
30 
30 
30 
30 
30 


47 
49 
50 


FF 


à À 


13 
16 
18 


26 


40 
40 
42 
43 
43 
71 
10 
10 
10 
16 
17 
19 
22 
22 
22 


24 
36 
37 
40 
46 
12 
15 
21 


10 
11 
12 
13 


41 
42 
44 
4e 
49 
50 


ONKEYLEX 

INDATES 

Formattons, Formattons ! 
Navigation 

Suprime Les remarques (SUPREM) 
TRI BULLE 

Compte Bancaire 

Compteur téléphone 

Caractères Ethiopiens 

KIBUR 

NIM 

Phases de La lune 
Redéfinition du clavier 
CALCLEX 

DESAL 

La recherche dichotomique 

Des polynomes et des croissants 
Calcul de dates 

Carrés magiques 

Tests statistiques 

MAKELEX 

WRXM 

READXM 

APPXM 

Test de Kolmogorov et Smirhov 
Translater program 411071 
Password 

Ecrémez vos programmes (ECREM) 
Equate 

Développement Limité en RPN 
HP71 Tellement complexe 1! 

Un bridge ce soir 

Assembleur: stop, encore 
GANYMEDE (OTHELLO) 

Des dates, encore des dates 
Le coin des Lhex 

Spécial bourse 

Côtes franç.<=>pied,pouce,x/64 
Carrés magiques 

Editeur de texte 

Le logiciel navigation pour HP71 
Les tables de La loi 

Format HPAF 

Calcul et édition de calendriers 
Le Débogueur Forth 

Break 

Sort (Tris) 

Mémoires de masse 

Champs assembleur sous EDTEXT 
L'ordre EXIT (FOR/NEXT) 

Lex PPOLL et demande de service 





appli. 
appli. 
appli. 
divers 
divers 
math. 
divers 
divers 
divers 
jeux 
Jeux 
astro. 
divers 
divers 
divers 
appli. 
math. 
divers 
divers 
stati. 
appli. 
appli. 
appli. 
appli. 
math. 
divers 
divers 
divers 
Appli. 
math. 
math. 
jeux 
Appli. 
jeux 
Appli. 
Divers 
Appli. 
divers 
math. 
divers 
navig. 
Stat. 
Divers 
astro. 
Utili. 
utili. 
Utili. 
HP-IL 
Utili. 
Utili. 
HP-IL 
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| Assembleur 
| Assembleur 
|  ASS/BASIC 
| BASIC 
| BASIC 
| BASIC 
| BASIC 
| BASIC 
| BASIC 
| RPN 
| RPN 
| RPN 
| Assembleur 
| * Assembleur 
| Assembleur 
| BASIC 
| BASIC 
| BASIC 
| BASIC 
| BASIC 
| BASIC 
| RPN 
| RPN 
| RPN 
| BASIC 
| BASIC 
|  FORTH/BASI 
| BASIC 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


FORTH/ASS. 


BASIC 
BASIC 
BASIC 
FORTH/ASS. 
FORTH/ASS. 
Assembleur 
Assembleur 
RPN 

RPN 

BASIC 
BASIC 
BASIC 
BASIC 
BASIC 
BASIC 
ASS/FORTH 
FORTH 
FORTH 
Assembleur 
Assembleur 
Assembleur 
Assembleur 


NOUS EN AVONS 
Sont en vente au Club: 


- Cartes magnétiques pour HP41 au prix de 150FF + 3,10FF de port les 50 cartes; 
- Cartes magnétiques pour HP71B8 au prix de 91FF + 3,10FF de port Les 10 cartes; 
- Cassettes digitales pour HP82161A: 100 FF pièce, plus 3,10 FF de port par cassette. 
- Eproms (2716 & 2732) vierges au prix de 60FF + 3,10FF de port pièce. Pour Les Eproms 
programmées, nous consulter; 
- Module TIME (82182A) au prix de 400FF + 6,50FF de port. Livré avec manuel en français; 
- Module QUADRAM (82170A) au prix de 400FF + 6,50FF de port; 
- Module HPIL (82160A) au prix de 970FF + 6,50FF de port. Livré avec manuel en français; 
- Pour Les commandes des ZENROM, CCDROM et ROM PANAME nous envoyer 500FF minimum d'arrhes; 
- VASM (Listing en anglais des 3 premières pages de La 41) au prix de 170FF + 13,50FF de port; 
- Le manuel de service de La 41 (en anglais) au prix de 50FF + 6,50FF de port; 
- Le manuel technique du convertisseur (en anglais) au prix de 20FF + 3,20FF de port; 
- HPIL Interface Specifications (en anglais) au prix de 80 FF + 9,50 FF de port 
- The HPIL Integrated Circuit User's manual (en anglais): 40 FF + 6,50 FF de port 
- Interface Kit Technical Guide (en anglais): 15 FF + 3,50 FF de port 
- Manuel technique du Minitel R (Ref. 250 Alcatel): 40 FF + 6,50 FF de port 
- Les anciens numéros au prix de: 
No 1 à 3 au prix de 15FF + 3,20FF de port par numéro, 
No 4 à 10 au prix de 20FF + 3,20FF de port par numéro, 
No 11 à 17 au prix de 25FF + 6,50FF de port par numéro, 
à partir du No 18 au prix de 35FF + 6,50FF de port par numéro. 


Les ports sont Les tarifs PTT actuels en non urgent. 


. ACHATS GROUPES 
Nous assurons des commandes groupées pour ceux qui désirent profiter de notre réduction 
“spécial Club", soit 25% par rapport au prix HP. Pour ceux qui Le désirent, nous assurons 
l'envoi postal en urgent ou en non urgent. Ces achats concernent aussi bien des modules que des 
calculatrices et autres. 


NOTA: ces deux rubriques "nous en avons! et !achats groupés", sont des services "Club! que nous 


rendons exclusivement aux membres effectivement inscrits au club et possédant leur carte de 
membre PPC-PARIS. 
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ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISTREE 
A PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


NOM BRU RE PER ELLES ELLE ERERERS THIERS 
PRENOM HU! NI! 1 1H 111 1 }_1_1_! DATE DE NAISSANCE 1_1_1/1_1 1/1 1 | 
ADRESSE DE CRETE LERRI RÉEL ERE CET PIRE MATIERE) 
D DR PE ELA EE LE DE ER RER LE LE RRE TA 
VOVISLISENSINEUNESRSSRSSTENSSSMNANERS 
COMMUNE: 4 1 RE LE LÉO RE PR ER RLNtRR EEE EREI 
CODE POSTAL 1111 ILI PAYS IEEE UE 1 1 
TELEPHONE DOMICILE 11/31 1 1! 1 1111 BUREAU 11/1111 11 1 1 11 
PROFESSION 
INTERETS 
2 
MATERIEL HP EN VOTRE POSSESSION 


tte 


AUTRE MATERIEL MICRO-INFORMATIQUE 


__ tte 


Ps, 


COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER 7 
PUBLICITE MAGAZINE 
AUTRE CLUB HP 
RELATIONS, MEMBRES DU CLUB, AUTRES 





QUE RECHERCHEZ-VOUS AU SEIN DU PPC PARIS CHAPTER 7? 


Je souhaite adhérer au club PPC PARIS CHAPTER conformément aux statuts de 
l'association. Au mieux de ma connaissance, je déclare avoir le droit ce fournir 
tous les programmes et informations que je vous enverrai (sans enfreindre des 
obligations de secret à l'égard d'autres personnes ou organismes) pour 
publication dans le journal de liaison, sans obligations ni responsabilité 
d'aucune sorte (en cas d'utilisation frauduleuse) de ‘la part des dirigeants du 
PPC PARIS CHAPTER. 


DATE 11/1 11/1911 


SIGNATURE, PRECEDEE DE LA MENTION "LU ET APPROUVE" 


LE MONTANT DE LA COTISATION AU PPC PARIS CHAPTER S'ELEVE A 300.00 FF. 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INDISPENSABLE) 
PAIEMENT EFFECTUE LE :_1_1/1_1_1/191_1_1 À L'ORDRE DE PPC PARIS CHAPTER. 
PAR [ ] CHEQUE BANCAIRE N° BANQUE 

[ ] CHEQUE POSTAL 3 VOLETS N° 

[C ] MANDAT LETTRE 
EVENTUELLEMENT: JE M'ABONNE À COMPTER DU :i_1i_1/1 11/1951 1 
JOINDRE À VOTRE INSCRIPTION UNE PHOTO D'IDENTITÉ ET UNE ENVELOPPE TIMBREE À 
VOTRE ADRESSE. 


UEUILLEZ EHUOYER TOUTE CORRESPONDANCE A: 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS (FRANCE) 


Le Journal JPC est le bulletin de liaison entre 
les membres de l'association "PPC-PC", régie par 
la loi de 1901. Le Club est éditeur du JEC, et 
son siège est au 56, rue Jean-Jacques Rousseau, 
75001 PARIS. 


La maquette de ce journal a été préparée par 
Michel MARTINET et Philippe GUEZ. Elle a été 
réalisé par Michel MARTINET avec la 
participation de Jean-Jacques DHENIN sur un 
système comprenant un HP71B, un lecteur de 
disques HP9114A et une imprimante "LaserJet". 
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Numéro ISSN: 0762 — 381X 





